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1.INLEDNING 


För att uppnå förståelse och enighet mellan användare, som refe¬ 
rerar till denna skrifts programlistor och exempel, följer alla 
listningar och exempel en standard som redovisas nedan. 


INTEGER-mode 

EXTEND-mode 
OPTION BASE 0 
SINGLE 


Används konsekvent i alla exempel. Förekommer 
flyttal svariabler noteras dessa med suffixet 
punkt (.). Ex: A.=Flyt.(8)+13.45 

Används konsekvent i alla exempel. 

Används konsekvent i alla exempel. 

Används konsekvent i alla exempel. 


Ec Används som global fel variabel och motsvarar 

efter funktionsanrop eventuell error-kod 
(ERRCODE) i anropad funktion. 

Z Används som "dummy"-variabel vid anrop av funk¬ 

tioner som returnerar integer-värde. 
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2. BASIC-PROGRAMMERING 


2.1 BASIC II 

2.1.1 Skillnader i BASIC mellan ABC 800 och ABC 80 

BASIC II till ABC800 är en utökning av ABC80 BASIC. BASIC II är i 
de flesta fall kompatibel med ABC80 BASIC. I en del fall 
förekommer vissa skillnader som redovisas nedan. Se även BASIC II 
manualen. 

De skillnader som förekommer kan indelas med avseende på orsak. 

* Skillnader i avsikt att uppfylla ANSI-standard för BASIC. 
(Punkt 1-5) 

* Rättningar av felaktigheter i ABC80 BASIC. 

(Punkt 6-7) 

* Utökningar och förbättringar. 

(Punkt 8 - 24) 

1. Vid tilldelning av flyttal svärde till hel tal svariabel sker 
avrundning. 

Exempel: AX=3.567 Varibeln AX tilldelas värdet: 

ABC800: 4 ABC80: 3 

2. Vid utskrift med hjälp av TAB anges utskriftsposition från 
T AB(1) på ABC800. 

Exempel: ;TAB(5)'B' Utskrift sker i position: 

ABC800: 5 (dvs pos. 1-40/80) ABC80: 6 (dvs pos. 0-39) 

3. Instruktionen INPUT får innehålla en ledtext som skrivs ut. 
Skriver man INPUT A,B skall värden matas in åtskiljda av 
komma, i annat fall ges felmeddelande. 

Om man skriver INPUT A, kommer cursorn att stå i nästa kolumn 
efter inmatningen. 

OBS! 

Använd endast denna funktion då inmatning sker från tangent¬ 
bordet. 

4. Blanktecken i DATA-satser behöver inte stå inom del imeters. 
Undantag från denna regel är inledande och/eller avslutande 
blanktecken. 

5. Det är tillåtet att ge blanktecken i INPUT-satsen. Observera 
dock att INPUT eliminerar inledande och/eller avslutande 
blanktecken. 

6. INSTR ger ej fel vid den tomma strängen. ABC80 kunde ge 
negativa värden. 

7. Kolon (:) i DATA och REM ger ej de extra blanktecken vid LIST 
som felaktigt skapades i ABC80. 



8. Vid utskrift av numeriska variabler åtskiljda av semikolon (;) 
läggs ett extra blanktecken in mellan talen. 

Exempel: ;X;Y Detta ger följande utskrift: 

ABC800: 0 0 ABC80: 0 0 

9. Vid konvertering från numeriskt värde med hjälp av NUMn ges 
inget inledande blanktecken vid positivt värde. 

Exempel : 20 1=1234 

30 ;NUMn(I) Ger följande utskrift: 

ABC8Q0:1234 ABC80: 1234 

10. Vid beräkning med ASCII-aritmetik är antalet siffror utökade 
till 125 och exponent tillåts som invärde. 

11. Vid dimensionering av variabler med DIM är det tillåtet att 
ge både undre och övre indexgräns, dvs DIM A(2:16) är till¬ 
ätet. Dessutom tillåts valfritt antal dimensioner. 

12. Ett alternativ till REM finns, nämligen utropstecken (!). 
Skrivs den på samma rad som en annan instruktion behöver den 
ej föregås av kolon (:). 

13. Instruktionen ON ERROR GOTO 0 ersätts med ON ERROR GOTO. 

14. Instruktionen END skall stå ensam på raden. END stänger 
alla filer men nollställer ej variabler. 

15. Läsning (pollning) av tangentbordet med INP(56) finns ej. 
Liknande funktion kan erhållas med SYS(5) funktionen. 

16. CALL-funktionerna vid direkt access på ABC80 ersätts med 
POSIT,PUT,GET...COUNT. 

Exempel: 

Läsning: 

A8C800: P0SIT£filnr,sektornr*253:GET#filnr,Q0n COUNT 253 
ABC80: Z=CALL(28666,fi 1 nr)+CALL(28668,sek torn r) 

Skrivning: 

ABC800: POSIT#fi 1 nr,sektornr*253:PUT#filnr,An 

ABC80: Z=CALL(28666,fi 1 nr):Q0n=An:Z=CALL(28670,sektornr) 

17. Instruktionen CLOSE utan något filnr stänger alla filer. Vill 
man ge mer än ett filnr är detta också tillåtet med satsen 
CLOSE fil 1,fil2,fil 3 .... 

18. Instruktionen CHAIN " ger ERROR 136. Den kan ersättas av 
antingen CHAIN 'NUL:' eller END. CHAIN är även behandlings¬ 
bart med ON ERROR GOTO. 

19. Vid kommandot LIST på fil är det tillåtet att ange radgrän¬ 
ser. 

Exempel: LIST PR:,10000-20000 Listar raderna 10000-20000 

på printern. 

20. Vid kommandot REN är det tillåtet att ange ett intervall. 

Exempel: REN 10000,10,10- Omnumrerar raderna 10 - med 

startvärde 10000 och 
intervall 10. 
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21. VId kommandot MERGE skall filen vara ett listat program 
(.BAS). 

22. Utskrifter från TRACE kan ske på fil och ej bara på bildskär¬ 
men. 

23. DEF FN fungerar på flyttal, heltal och strängar. Den kan 
även vara flerradig . 

24. CHRn har ej enbart fyra argument längre utan valfritt antal. 
Man kan alltså skriva CHRn(A,B,C,D,E,F,G). 
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2.1.2 Nyheter i BASIC II 


Förutom de skillnader mot ABC80 BASIC som redovisades i förra 
kapitlet, har det naturligtvis tillkommit en hel del nyheter i 
BASIC II. En kortfattad beskrivning över dessa nyheter ges nedan. 
I ABC80 kolumnen finns en beskrivning (vid de tillfällen en 
motsvarighet existerar) av ersättningsförfarande. För ytterligare 
information av nyheter hänvisas till BASIC II manualen. 


KOMMANDO 

ABC800 

ABC80 

AUTO 

Ger automatisk radnum¬ 
rering. 

— 

CONTINUE 

CON 

Startar exekvering av 

ett stoppat program vid den 

rad där programmet stoppades. 

— 

ERASE 

Tar bort rader ur programmet. 


GOTO 

Startar exekvering på 
en viss rad. 

POKE 65060,0:G0T0 
rl 
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INSTRUKTION 


ABC800 


ABC80 


COMMON 


DEF FN ... 
RETURN uttryck 
FNEND 


DIGITS 


DOUBLE 


EXTEND 


FLOAT 


INTEGER 


NO EXTEND 


OPTION BASE 


Deklaration av de Använd POKE-arean 

variabler, vars värden skall eller mellanlag- 
överföras till ett annat ring på fil. 
program. 


Flerradiga funktioner GOSUB 

tillåts. Avgränsas med /RETURN 

DEF FN och FNEND. Värdet 
returneras med instruktionen 
RETURN uttryck. 


Anger antalet siffror som 
skrivs ut med PRINT. Påver¬ 
kar även kolumnbredden. 

Används ej DIGITS i programmet 
är kolumnbredden vid 
SINGLE = 6 och vid 
DOUBLE = 16. 


Ändrar alla variabler och 
uttryck, som är flyttal,till 
dubbel precision (16 siffror). 


Anger att det är tillåtet 
att använda långa variabel - 
namn. 


Anger att alla variabler, 
konstanter och funktioner 
antas vara flyttals- 
variabler om ej suffix anges. 


Anger att alla variabler, 
konstanter och funktioner 
antas vara heltals- 
variabler om ej suffix anges. 


Anger att det är otillåtet 
att använda långa variabel- 
namn. 


Anger undre gräns för 
vektorindex. Tillåtna värden 
är 0 och 1, med defaultvärde 
0 . 
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INSTRUKTION 


ABC800 


ABC80 


PRINT USING 

RESUME 


SINGLE 

WHILE uttryck 
WEND 


Skriver ut tal och strängar Formatera 
enligt ett format som utskriften med en 

bestäms av användaren. subrutin. 

Ex. PRINT USING A. 


Anger vart återhopp skall 
ske då ett fel, omhändertaget 
av ON ERROR GOTO, sker. 
Utelämnas radnummer vid 
RESUME sker återhoppet till 
den rad där felet uppstod. 


Ändrar alla variabler och 
uttryck,som är flyttal,till 
enkel precision (7 siffror). 


Satserna mellan WHILE och 
WEND utförs så länge 
uttrycket efter WHILE är 
sant. 


rl IF NOT uttryck 
THEN 

GOTO r2 


GOTO rl 
r2 .... 
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FUNKTION 


ABC80 


ABC800 


CVUn 

Lagrar ett heltal 1 en 
sträng. 

An=CHRn(A% AND 
255%,A%/256%) 

CVTn% 

Återskapar ett heltal ur en 
sträng. 

A%=ASC(LEFTn(An,l)) 
+ASC(RIGHTn( An,l))* 
256% 

CVTFn 

Lagrar ett flyttal i en 
sträng. 

— 

CVTnF 

Återskapar ett flyttal ur en 
sträng. 

— 

HEXn 

Omvandlar ett heltal till en 
hexadecimal sträng. 

Konstruera en sub¬ 
rutin soin utför 
omvänd!ingen. 

MOD 

Ger resten vid hel tals¬ 
division. 

T%-INT(T%/N%)*N% 

OCTn 

Omvandlar ett heltal till en 
oktal sträng. 

Konstruera en sub¬ 
rutin som utför 
omvandlingen. 

PEEK2 

Läser innehållet i två (2) 
bytes. 

PEEK(A%)+ 
PEEK(A%+1%)*256% 

SYS 

Ger systemstatus. 

Läs av resp 
internvariabel med 
PEEK. Se 

ABC80 manualen. 

TIMEn 

Ger tidsangivelse på for¬ 
men år-mån-dag tim.min.sek 

Ex. 1982-09-13 10:30:15 

Läs av klockan med 
en programrutin. 

Se ABC80 manualen. 

VAROOT 

Ger adressen till en varia¬ 
bels plats i variabellistan. 

Sök igenom varia¬ 
bel! i stan. Se 
AVANCERAD PROGRAM¬ 
MERING PÅ ABC80. 

VARPTR 

Ger adressen till en varia¬ 
bels värde. 

Sök igenom varia¬ 
bellistan. Se 


AVANCERAD PROGRAM¬ 
MERING PÅ ABC80. 
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2.2 Programmera ABC 800 

2.2.1 Generell programmeringsteknik 

Detta avsnitt beskriver hur man bör gå till väga vid konstruktion 
av större programsystem. 

ARBETSGÅNG 

Vi skall här översiktligt gå igenom lämplig arbetsgång, för att 
senare steg för steg gå igenom de olika delarna mer i detalj. 

1 DEFINIERA DATASTRUKTUR (diskett) 

2 DEFINIERA DATASTRUKTUR (listor) 

3 DEFINIERA DIALOG (skärmar/menyer..) 

4 DEFINIERA PROGRAMMETS GROVSTRUKTUR 

5 KODNING, PROGRAMGENERERING 


DEFINIERA DATASTRUKTUR 

Det första man skall göra är att bestämma vad programmet skall 
ha för in- och utdata. En lämplig konstruktionsmetod är därför 
JSP, en generell programkonstruktionsmetod som arbetar utifrån 
dessa datastrukturer. (För beskrivning av JSP - se kap 2.2.2.) 


DEFINIERA LISTOR 

Innebär att vi bestämmer alla utskrifter och listor som vi önskar 
från vårt program. 

Exempel på listor är 

LAGER-LISTA i ett 1 agerprograrn 
KONTO-LISTA i ett bokföringsprogram 

Till vår hjälp har vi den tidigare definierade datastrukturen 
varifrån vi kan se vilka uppgifter vi har tillgängliga i system¬ 
et. 


DEFINIERA DIALOG 

Dialogbeskrivningen, som liksom listdefinitionen egentligen är en 
del av datastrukturdefinitionen, består av en förteckning av de 
skärmar (layouter på bildskärmen), menyer och formulär 
(inmatningsskärmar) som skall ingå i systemet. 

Exempel på formulär är 

REGISTRERA NY KUND 
KONTERINGSRUTIN 






PROGRAMMETS GROVSTRUKTUR 


Man har samtidigt med definitionen av ovanstående delar fått en 
första grovstruktur på hur det färdiga programmet koimer att se 
ut. 

Därefter fortsätter man att förfina programmet i steg, tills man 
har fått ett färdigt program som grundar sig på datastrukturen. 
Tekniken med stegvis förfining av programmet kallas "Top-down"- 
kodning. 

KODNING, PROGRAMGENERERING 

* Använd långa variabelnamn. 

* Använd INTEGER - mode. 

* Använd flerradiga funktioner istället för GOSUB (simulerade 
procedurer). 

* Utnyttja TRUE/FALSE - funktioner. 

* Följ "Lök-principen" (Kommunikation mellan nivåer). 

* Utnyttja "Read Ahead". 

* Följ ABC800 Metodhandbok (ref. 3). 


* Långa variabel namn 

Att använda långa variabelnamn innebär inte att man skall använ¬ 
da namn som tar upp en halv bildskärmsrad. Man skal 1 inte 
använda namn som: 

Bibiiotekssektor(Bibliotekssektor) 

Prisinklusivemomspåvaran 
Bi1dkorrektionsfaktor2 

Dessa "jättenamn" leder förr eller senare till stavfel med 
påföljande felsökning. Ett bättre namn för exempel vis^Biblioteks¬ 
sektor kan vara Bibsekt. Detta är lika lätt att förstå men med 
mycket mindre risk för felstavning. 

En allmän regel för namngivningen är att namnen skall vara rele¬ 
vanta och vad längden beträffar kan man oftast klara sig med upp 
till 10 tecken. 
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Ett undantag från regeln att alltid använda långa variabel namn är 
1 oop- och slaskvariabler. 

För loopvariblerna räcker det oftast gott med namn som I eller 
J. Lämpliga bokstäver är I - N. 

OBS! 

Det är ej tillåtet att använda lokala variabler i en FOR-loop. 

Här måste man använda en global variabel eller, som altenativ, 
byta till en WHILE-loop. COMMON-variabel kan ej användas som 
loopräknare i FOR-NEXT loop. 

För att få ett mer lättläst program kan man tex placera alla 
texter på ett ställe och inte ha dem utspridda över hela 
programmet. 


* INTEGER-mode 

Att man skall använda INTEGER-mode beror på att större delen av 
ditt program antagligen inte använder flyttal. I de fall flyttal 
används registreras dessa med punkt (.). 

Fördelen med INTEGER-mode är att läsbarheten ökar då alla ^tec¬ 
ken försvinner och man riskerar ej att missa att sätta ut nagot 
%-tecken. 


* Flerradiga funktioner 

Varför man skall använda funktioner i stället för GOSUB beror på 
att GOSUB försvårar själva läsningen av programmet, medan funk¬ 
tioner med relevanta namn förenklar läsningen. 

Exempel: 

100 A = 1 
110 GOSIJB 300 
120 A = 2 
130 GOSUB 300 
140 END 

300 Z = CALL(24678,A) 

310 RETURN 

Bättre variant: 

100 DEF FNReadsekt(I) = CALL(24678,I) 

110 Z=FNReadsekt(1) 

120 Z=FNReadsekt(2) 

130 END 

En god regel är att skriva så mycket som möjligt i funktionerna 
och att organisera dessa så att de ej ligger utspridda över hela 
programmet utan någon som helst ordning (struktur). 

För att strukturera uppläggningen av funktionerna kan två olika 
metoder användas. 
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Antingen placeras alla funktioner, som har likartade funktioner, 
på ett ställe i programmet så att man får ett sk paket, tex 
filpaket.tangentbordspaket etc. 

Eller så placeras de så att alla funktioner som finns på samma 
nivå i JSP-strukturen ligger på samma ställe. 

Fördelen med att ha det organiserat på det senare sättet är att 
programstrukturen syns lättare. Fördelen med det förra sättet är 
då man bara är intresserad av del rutiner i programmet då samhöra- 
de funktioner finns på samma ställe. En annan fördel med detta 
placeringssätt är att man också får lättare att göra MERGE, om 
man till ett annat program bara är intresserad av ett speciellt 
paket. 


* TRUE/FALSE funktioner 

Dessa funktioner returnerar 0 eller -1 beroende på om funktionen 
utfördes korrekt eller om ett fel uppstod. 

Exempel: 

100 IF NOT FNFunktion THEN P=FNError('FEL') 

I exemplet ovan skrivs felmeddelandet 'FEL' ut om något fel 
uppstår under exekveringen av FNFunktion. 

Allmänt kan man säga att funktionerna används när bara två 
tillstånd kan uppstå. Oftast rätt eller fel. Den anropande rutin¬ 
en kan ta hand om de olika tillstånden och fortsätta bearbetning¬ 
en beroende på returvärdet från funktionen. 


* "Lök-principen" 

"Lök-principen" o går ut på att programmet (systemet) är uppbyggt i 
olika skal (nivåer) precis som en lök. Varje skal får bara 
kommunicera med skalet alldeles ovanför eller nedanför aktuellt 
skal, enligt något bestämt gränssnitt. Enligt "Lök-principen" ser 
ABC800-program ut så här: 

Skal 1: Huvudprogram (huvudloop) 

Skal 2: Funktioner 

Skal 3: Assemblerrutiner 

Skal 4: Hårdvara 

"Lök-principen" kan tex användas vid konstruktion av assembler¬ 
rutiner, som BASIC skall kommunicera med. I detta fall bör 
anropet till assemblerrutinen ligga i en egen funktion. 

Exempel: 

10 DEF FNAsmcall(Adr,Arg) = CALL(Adr,Arg) 
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* "Read Ahead 


Denna teknik används vid olika slag av repetitioner (tex WHILE), 
men är mest använd i samband med filhantering. 

"Read Ahead" går ut på att man placerar en läsoperation/ti11 del¬ 
ning omedelbart efter öppnandet av filen, alternativt vid loopen 
alldeles före WHILE, och en läsoperation omedelbart efter det att 
man har använt posten, alternativt vid loopen alldeles före WEND. 

Exempel: Loop. Jämförelse med FOR-NEXT. 

10000 FOR I = 1 TO 10 
10010 ! Bearbeta 

10020 NEXT I 

10000 1=1 
10010 WHILE I<=10 
10020 ! -- Bearbeta 

10030 1=1+1 

10040 WEND 

Exempel: Enkelt filhanteringsexempel. 

10000 INPUT #1,A 
10010 WHILE AoO 
10020 ! Bearbeta A 

10030 INPUT #1,A 

10040 WEND 

Exempel: Filhanteringsexempel med funktioner. 

10000 DEF FNLinputn(Fil) Local Textn=160 
10010 Ec=0 : ON ERROR GOTO 10040 
10020 INPUT LINE #Fil,Texta 
10030 RETURN LEFTa(Texta,LEN(Texta)-2) 

10040 Ec=ERRCODE : RETURN "" 

10050 FNEND 
10060 ! 

10070 OPEN 'LÄSFIL.TXT' AS FILE 1 
10080 Aa=FNLinputa( 1) 

10090 Eof=Ec<>0 
10100 WHILE NOT Eof 
10110 ! -- Bearbeta Aa 

10120 Aa=FNLinputa( 1) 

10130 Eof=Ec<>0 
10140 WEND 


Ett exempel på användning av "Read Ahead" är da en post skall 
bearbetas olika beroende på något villkor. 

För att kunna testa villkoret måste läsning ske innan villkors- 
satsen utförs. 
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* ABC800 metodhandbok 

Denna handbok är utgiven för att standardisera utformningen av 
dialogprogram etc för ABC800. 

Att följa en standard är viktigt. Om alla följer standarden 
kommer alla program att se likadana ut för användaren , men det 
blir också lättare för programmerarna att följa varandras pro¬ 
gram. 


Menyer - kommandostyrning 

Dina program kan antingen vara kommando- eller frågeorienterade 
(menyer, löpande frågor osv). Ofta är det viktigt för användaren 
vilken uppläggning man väljer. Ett program får aldrig växelvis 
vara både kommando och frågeorienterat. 


För ovana användare är menyuppläggningen bäst. 

Viktigt är att menyerna är logiskt uppbyggda så att användaren 
inte skall behöva utföra onödigt sökande för att komma dit han 
önskar. 

En menys logiska uppbyggnad skall i princip se ut så här: 

1 * Dagliga rutiner Rutiner som skall nås snabbt. 

Ex. Listning på skärm. 

2 * Periodiska rutiner Används periodiskt. 

Ex. Utskrifter. 


3 * Registervård 


Rutiner för speciella behov. 
Ex. Ändringar och tillägg. 


4 * Systemvård 


0 * Avslutning 


Används i princip bara en gång. 

Ex. Angivande av företagsnamn. 

Skall alltid stå sist i menyn. 
Innebär att man kommer till närmast 
föregående ineny. 


Skall användaren lämna en meny skall det bara vara möjligt att 
komma till menyn närmast ovanför eller nedanför i hierarkin. Man 
skall samtidigt undvika att göra CHAIN till rutiner som används 
ofta. 

Vad man framför allt bör tänka på är att alla program inom ett 
system skall se ut på samma sätt. 

För övrig information om hur programmen bör vara uppbyggda 
hänvisas läsaren till Metodhandboken utgiven av LUXOR och FACIT 
(ref. 3). 


* ti 
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2.2.2 Strukturerad programmering med JSP 

JSP är en metod för konstruktion av strukturerade program. Vad 
som kommer att behandlas på följande sidor är bara grunderna i 
JSP. Intresserade läsare kan för ytterligare Information läsa 
boken, JSP - En praktisk metod för programkonstruktion (ref. 4). 

Fördelarna med strukturerad programmering är att läsbarheten 
ökar, det blir lättare att ändra i programmet efteråt och det är 
lättare för andra att sätta sig in i programmet. Alla "vilda" 
GOTOj som snabbt leder till "spaghetti-syndromet", förvinner 
ocksa. 

Teoretiskt består alla program av tre (3) komponenter, nämligen: 
* Sekvens Utför instruktionerna sekvensiellt. 

Beteckning: 



* Iteration Repetition. Ex. WHILE-, FOR-sats. 


Beteckning: 



* Selektion Antingen eller. Ex. IF-sats. 



Beteckning: 









Komponenterna ser ut på följande sätt i JSP- respektive BASIC- 
notatlon: 

* Sekvens 

JSP-notatlon: 



BASIC-notation: 

10000 Z=FNBoxa ! Box A 
10010 Z=FNBoxb ! Box B 

* Iteration 
JSP-notation: 



BASIC-notation: 

10000 WHILE NOT Villkor 
10010 Z=FNBoxb 
10020 WEND 
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* Selektion 


JSP-notation: 



BASIC-notation: 

10000 IF NOT Villkor THEN Z=FNBoxb ELSE Z=FNBoxa 
10010 ! ENDIF 

Det är bevisbart att alla program kan skrivas med endast dessa 
tre komponenter. 

Observera att varje enstaka ruta ej o ger besked om vilken 
komponenttyp den tillhör utan man måste alltid titta pa närmast 
underliggande nivå. Varje box måste tillhöra en av de tre 
komponenterna entydigt, dvs man får ej ansluta en sekvens och en 
iterationsbox eller en iterations- och en selektionsbox till 
samma ruta. 

Samtidigt skall programmet ha exakt en (1) ingång och en (1) 
utgång. Man kan alltså inte som i en flödesplan skriva in START 
och STOPP-rutor var som helst. 

En olikhet mot programmeringsspråken är hur tidsföljden markeras. 
I JSP används horisontell markering, och man bygger upp program¬ 
met som en trädstruktur, medan man i vanliga programmeringsspråk 
använder en vertikal tidsföljdsmarkering. 

Ett exempel får visa: 



(Villkor 1) 
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10000 ! Start 
10005 ! 

10010 Z=FNBoxa ! Box A 
10020 ! Start iteration Box B 
10030 WHILE NOT Villkor 
10040 Z=FNBoxc ! Box C 
10050 WEND 

10060 ! Slut iteration 

10070 ! Start selektion Box D 

10080 IF NOT Villkori THEN Z=FNBoxf ELSE Z=FNBoxe 

10090 !ENDIF 

10100 ! Slut selektion 

10110 ! Stopp 


Vi ser i exemplet ovan att JSP leder till blockstruktur på 
programmen, vilket ökar läsbarheten. 




2.2.3 Generell programstruktur 


En generell programstruktur för ett ABC800-program bör se ut på 
följande sätt: 

1 * Deklarationer Här deklarerar du dina COMMON variabler 

och dimensionerar variablerna med DIM-sat- 
ser. 


2 * Konstanter Här placerar du dina variabler som skall 

ha ett konstant värde genom hela pro- 
grammet. Dessa variabler får ej tilldelas 
mer än en (1) gång. 

3 * Funktioner Här finns alla dina funktions-(procedur-) 

definitioner. 


4 * Huvudprogrammet Här placeras "huvudioopen". 


Varför vi har valt denna programstruktur beror på att ABC800 
BASIC alltmer har närmat sig procedurorienterade språk, typ 
PASCAL. Dessa språk har som standard att först skall deklaratio¬ 
ner och deklarering av konstanter komma och efter dessa följer 
procedurerna och funktionerna och sist följer huvudprogrammet. 


Vad som har gjort att ABC800 BASIC har närmat sig dessa språk är 
införandet av flerradiga funktioner. 

I och med att man använder funktioner får man följande effekter: 

* En noggrann indelning i lokala och globala variabler. 

* En modul indelning av programmet där varje logisk del är 
noggrant definierad. 

* En blockstruktur som innebär att när ett program är skrivet så 
har man de flesta av de funktioner som behövs i nästa program. 
Exempel på sådana rutiner är: Filhanteringsrutiner 

Menyhanteringsrutiner 


Programmerare som har använt tex PASCAL vet att i sådana språk 
finns procedur-begreppet (PROCEDURE) som tillägg till funktions- 
begreppet. Skillnaden mellan dessa är att en funktion alltid 
returnerar ett värde, medan en procedur aldrig returnerar ett 
värde utan bara utför instruktionerna som finns i proceduren. 

Procedur-begreppet går att införa i BASIC genom att man låter 
sin funktion returnera ett oväsentligt värde. Typiska värden är: 


0 

dvs 

RETURN 

0 

Vid 

INTEGER-funktion 

FNX(Y) 

0 . 

dvs 

RETURN 

0 . 

Vid 

FLOAT-funktion 

FNX.(Y) 


dvs 

RETURN 


Vid 

STRING-funktion 

FNXn(Y) 






Exempel: 


10 DEF FNProcedur 

20 ! Utför någonting 

30 ! fortsätt 

40 ! proceduren klar 

50 RETURN 0 ! Återvänd från proceduren 

60 FNEND 


Anrop av flera sekvensiella "procedurer" kan med hjälp av 
flerradiga strängfunktioner se ut på följande sätt: 

1000 PRINT FNProcan; 

1010 PRINT FNProcbn; 

1020 PRINT FNProccn; 


Funktionen (proceduren) utför bara instruktionerna som finn^ 
lan DEF FN och FNEND. Den returnerar visserligen ett värde, 
det är ett dummy-värde, dvs ett värde som det anropande proc 
met aldrig kommer att använda. 

Användning av flerradiga funktioner underlättar inte bara 
läsbarheten utan även provkörning av olika programavsnitt. 

Test av funktionen görs på följande sätt: 

1 Ladda in funktionen i minnet. 

2 Skriv RUN för att "FIXUP"-a programmet. 

3 Skriv tex PRINT FNFunktion(Testvärde). 

Funktionen kommer nu att genomköras och returnera funktionsv 
det, som kommer att skrivas ut på bildskärmen. 

Pa detta sätt kan de flesta delarna i ett program felsökas v 
för sig. 


2.2.4 Tips och fällor 


Vid programmering med BASIC II finns det en del saker att tänka 
på. Några av dessa finns beskrivna här nedan. Framförallt 
effekterna av den nya ON ERROR-behandlingen. 


LÅNGA VARIABELNAMN 


Vid borttagning av programdelar (tex med ERASE) tas ej berörda 
långa variabel namn bort ur listan med långa variabel namn. För 
att spara plats - LISTA programmet och ladda in det igen med 
jämna mellanrum. 


HASTIGHETSOPTIMERING 


Undvik REM i loopar. Varje REM tar ca 200 mikrosekunder att 
utföra. 

WHILE tar längre tid än FOR. Ändå bör FOR-loopar undvikas i funk¬ 
tioner pga att loopvariabeln INTE kan vara lokal. FOR-loopen är 
specialoptimerad för att kunna exekveras snabbt . 

I de fall då hel tal svariabler kan användas bör man göra det . 
eftersom dessa medger en snabbare exekveringstid. 

Om en loop uförs många gånger - kontrollera om konstanter 
beräknas inuti loopen. I sa fall flytta dem utanför loopen. 

Exempel: 

0000 ! Vridning av tvådimensionella koordinater 
0005 ! 

0010 FOR 1=0 TO 10000 

0020 XI.(I)=C0S(A.)*X0. (I)-SIN(A.)*Y0.(I) 

0030 Yl.(I)=C0S(A.)*Y0.(I)+SIN(A.)*X0.(I) 

0040 NEXT I 

Byt ut följande rader: 

0005 Xr.=C0S(A.): Yr.=SIN(A.) 

0020 XI.(I )=Xr.*X0.(I)-Yr.*Y0.(I) 

0030 Yl.(I)=Xr.*Y0.(I)+Yr.*X0.(I) 

Detta kommer att snabba upp programmet avsevärt. 


PLATSOPTIMERING 

Packning av utskriftselement med semikolon (;) tar en byte mer 
per semikolon än motsvarande packning med space. 

Ex: 

PRINT An;Bn;Cn tar 2 byte mer än 
PRINT An Bn Cn 


Negativa INTEGER konstanter tar 1 byte mer än motsvarande 
positiva. 
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Exempel: 

POKE -767,0 tar 1 byte mer än 
POKE 64769,0 

Konstanter i området 0-16 lagras i 1 byte. 

Konstanter i området -0 - (-16) lagras i 2 byte. 

Flyttal skonstanter som är "binära", dvs talet är lämpligt 
beskriva på binärform, tar mindre plats än motsvarande ick 
"binära" flyttal skonstanter. 

Exempel: 

2. tar mindre plats än 2.37 
Skrivsättet 

10 xxxxxx : ! ABC tar 1 byte mer än 
10 xxxxxx ! ABC 

Undvik att ha kolon med när en REM-sats följer direkt efte 
exekverbar sats. 


HUR MYCKET PLATS TAR VARIABLERNA ? 

Olika variabel typer tar olika plats. Dessutom tar det olik 
tid att referera till olika variabel typer. 

Skalära INTEGER/FLOAT-variabler tar mer lagringsplats än n 
tive vektorer/matriser. Däremot refereras skalära INTEGER/ 
variabler snabbare. 


Skalära strängvariabler tar både mindre plats och referera 
snabbare än motsvarande vektorer/matriser. 


Här följer en uppsättning platsberäkningsformler: 


Skal är 

HELTAL 6 

FLYTTAL I SINGLE 8 

FLYTTAL I DOUBLE 12 

STRÄNG 10+diml 


Vektor/matris 

10 + 6 * ia + 2 * ea 

10 + 6 * i a + 4 * ea 

10 + 6 * i a + 8 * ea 

10 + 6 * i a + 6 * ea + diml * 


i a = index-antal 

ea = element-antal 

diml = dimensionerad längd 

Exempel: 

En flyttal svektor (enkel precision) med 11 element upptar 
10 + 6 * 1 + 4 * 11 = 60 byte. 

En strängmatris med 11*11 element och längden 80 tecken upp 
10 + 6 * 2 + 6 * 121 + 80 * 121 = 10428 byte. 
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FLERRADIGA FUNKTIONER, PROBLEM 


Vid användning av flerradiga funktioner tillsammans med globala 
variabler, som tilldelas inuti funktionen, kan (ibland) vissa 
situationer uppstå. 


Exempel 1: 

Vi använder den globala variabeln Globaln som inparameter. Till¬ 
delar Globaln inuti funktionen och returnerar inparametern. (Inte 
speciellt vanligt men i alla fall.) 


10000 DEF FNGlobaln(Inn) 

10020 Globaln='l' 

10030 RETURN Inn 
10040 FNEND 
10050 G1obaln='ABC' 

10060 ; FNG1obaln(Globaln) 

Detta exempel ger resultatet 1BC. INTE ABC eller 1. 

Vid anropet kopieras parameterblocket för strängen Globaln till 
arean för funktionens inparametrar. Parameterblocket (det som 
ligger som inparameter) pekar dock på samma dataarea som 
original blocket. När vi nu förändrar Globaln inuti funktionen på 
rad 10020, förändras aktuell längd i det ursprungliga parameter¬ 
blocket för Globaln, som får aktuell längd 1. När vi sedan retur¬ 
nerar inparametern (som innehåller aktuell längd 3) kommer 
felaktiga data att returneras. 






Param.block 
för global# 


Dataarea 
för global# 



Kopiering av 
param.block 
till stack sker 
vid anrop 



A 

V 

D 


AL 

VF 

DL 


Utseende vid funktionsanrop 


Param.block 
för global# 


Dataarea 
för global,# 



AL 

VP 

DL 



AL 

VP 

DL 


AL 

VP 

DL 


Utseende vid RETURN från funktion 


Exempel 2: 

Vi använder den globala variabeln Globaln inuti funktionen, so 
returnvariabel, och anropar funktionen flera gånger med olika 
inparametrar i en konkatenering. 

10000 DEF FNNn(X) 

10020 Globaln=NUMn(X) 

10030 RETURN Globaln 
10040 FNEND 

10050 ; FNNn(l)+FNNn(2) 

Detta exempel ger resultatet 22. INTE 12. 

Vid första anropet av FNNn, kopieras parameterblocket för Glo¬ 
baln till stacken, som håller mellanresultatet. Vid andra anro 
komme^rad 10020 att "skriva över" resultatet från första anro 
pet. Båda kopiorna av parameterblocken pekar på samma dataarea 
som nu innehaller 2, och när konkateneringen utförs blir resul 
tet 22. 
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iktuel 11] 
/ärdepet 
iimensiol 
ängd 


ram.blod! 
r returr 
riabel 


.tuell lal 
irdepeka 
mensionB 
ngd 


1 



j 

j 

A 

f 


Param.bl ock 
for global# 


Dataarea 
för global# 



AL 

VP 

DL 


Global tilldelas T 
inuti funktionen 


Utseende vid första RETURN 


Param.block 
för global# 



AL|Vid RETURN läggs 
^ rparam.block för 
J returnvar. upp på 
stacken. 


Utseende vid andra RETURN 



STACK 

1 


80* 





AL 

VP 

DL 


Param.block 
för resultat 1 


Param.bl ock 
för global#] 


Vid andra 
funktions- 
anropet för 
ändras global# 
till 1 2' 



AL | 

[ Vid RETURN 

läggs 

VP 

rparam.block 

för 

DL J 

1 returnvar. 

upp 


på stacken 




AL I Param.block 
VP \ för resultat 1 

/ Param.block 
r för resultat 2 


AL = Aktuell längd 
VP = Värdepekare 
DL = Dimensionerad 


länge 
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Exempel: 


10 DEF FNA.(B.) L . 0 

20 RETURN SIN(B -)/C0S(B.) ! Om fel inträffar här hamnar vi pa 

rad 100 vilket inte är lämpligt. 

30 FNEND 

25 i *************** 

40 ON error GOTO 100 
50 INPUT A. 

60 ; FNA.(A.) 

70 .... 

80 .... 

90 .... 

100 ! FELRUTIN 
110 .... 

* Ett ON ERROR GOTO <rad> som sätts i en funktion tas bort när 
RETURN exekveras. Satsen ON ERROR GOTO behöver ej användas. 


Exempel: 

10 DEF FNA.(B.) 

20 ON ERROR GOTO 40 

30 RETURN SIN(B.)/COS(B.) ! Om fel inträffar här hamnar vi pa 

rad 40. 

40 ! FELRUTIN 

50 RETURN 999. 

60 FNEND 

55 j*************** 

70 ON ERROR GOTO 140 . o 

80 INPUT A. ! Inträffar fel här hamnar vi pa rad 

140. 

90 • FNA (A.) ! Nu gäller fortfarande ON ERROR GOTO 

’ ’ ' 140. 

100 .... 

110 .... 

120 .... 

130 .... 

140 ! FELRUTIN 
150 .... 

* När en funktion anropar en annan funktion gäller det senast 
aktuella ON ERROR GOTO tills dess att ett ON^ERROR GOTO sätts 
i den anropade funktionen. När exekveringen återvänder till 
den anropande funktionen gäller det ON ERROR GOTO som fanns 
innan anropet skedde. 









Exempel: 


10 DEF FNA.(B.) LOCAL F. 

20 ON ERROR GOTO 50 
30 F.=FNB.(B.) 

40 RETURN SIN(B.)/COS(F.) ! Om fel inträffar här hamnar 

vi på rad 50. 

50 ! FELRUTIN 

60 RETURN 999. 

70 FNEND 
80 DEF FNB.(S.) 

85 Z=CALL... ! Inträffar fel här hamnar vi 


rad 50. 

90 ON ERROR GOTO 110 

100 RETURN COS(S.)/TAN(S.) ! Om fel inträffar här 

hamnar vi på rad 110. 

110 ! FELRUTIN 

120 RETURN 999. 

130 FNEND 

135 i*************** 


P 


140 ON ERROR GOTO 210 
150 INPUT A. 

160 ; FNA.(A.) 

170 .... 

180 .... 

190 .... 

200 .... 

210 ! FELRUTIN 


Inträffar fel här hamnar vi ; 
rad 210. 

Nu gäller fortfarande ON ERRC 
GOTO 210. 


220 


ON ERROR GOTO-behandling med RESUME 

OBSERVERA! Vid förekomst av instruktionen RESUME (någonstans 
programmet) krävs att alla ON ERROR-hanteringar genomlöper F 
för att återställa BASIC:ens stackhantering. 

Exempel: 

100 ON ERROR GOTO 140 
110 INPUT A. 

120 ; FNA.(A.) 

130 END 
135 ! 

140 ! FELRUTIN 
150 ; 'FEL' 

160 RESUME 

165 ! 

170 DEF FNA.(A.) 

180 ON ERROR GOTO 200 
190 RETURN CO$(A.)/TAN(A.) ! Här gäller ON ERROR GOTO 200. 
200 ! FELRUTIN 

210 RESUME 220 ! Om denna rad saknas kommer fe' 

meddelande att genereras vid 

220 . 

220 RETURN 999. 

230 FNEND 


! Inträffar fel här hamnar vi på 
rad 140. 

! Nu gäller fortfarande ON ERROR 
GOTO 140. 


! I och med detta RESUME måste a 
felhanteringar "avslutas" med R 
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2.3 Datahantering på sekundärminne 
2.3.1 Sekvensiella filer 


I en sekvensiell fil ligger posterna lagrade med CR, CHRn(13), 
som avgränsare. 

Sist i varje sektor ligger ETX, CHRn(3), som innebär att man 
skall läsa in en ny sektor. 

Filslut markeras med 6 st NUL, CHRn(O). 

Blanktecken (' ') komprimeras på formen CHRn(9)+CHRn(Anta1et 
blanka). 

Behandlar man posterna med hjälp av INPUT, PRINT och INPUT LINE, 
vilket rekommenderas, behöver man inte bry sig om ovanstående da 
systemet sköter om att man får rätt post. Ibland kan man dock 
vilja behandla en sekvensiell fil med "direkt access" och då kan 
det vara bra att känna till lite om lagringssättet. När^man 
läser/skriver på en sekvensiell fil kan man bara komma åt posten 
efter den man läste/skrev sist. 

Här följer nu ett litet program som läser in en fil,skri ver ut 
dess poster och lagrar posterna i en ny fil. 

10010 INTEGER : EXTEND 

10020 OPEN 'TEST1.DAT' AS FILE 1 

10030 PREPARE 'TEST2.DAT' AS FILE 2 

10040 ON ERROR GOTO 10110 ! Behandla filslut på infilen 

10050 WHILE 1 ! Oändlig loop. Terminering sker mha ON ERROR GOTO 

10060 INPUT LINE #l,An 

10070 ! Tag bort CHRn(13,10) ur strängen 

10080 PRINT An; 

10090 PRINT #2,An; 

10100 WEND 
10110 CLOSE 1,2 
10120 END 
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2.3.2 Random Access-filer 


Hanteringen av random access-filer skiljer sig markant frår 
hanteringen av sekvensiella filer. Här tänker man sig hela 
som en enda stor sträng, och en post är då ett antal av des 
tecken. Därför har man en fast postlängd när man hanterar 
random access-filer. 

En diskett är indelad i spår och varje spår innehåller ett 
sektorer. Varje sektor är 256 bytes lång men av dessa är 3 
information för DOS. Det återstår således 253 byte för anvä 
ren. 

De instruktioner som finns för hantering av random access-f 
är: 


POSIT #filnr, position Ställer fil pekaren (pekare till va 

ta läsning/skrivning sker på filen 
position "position" på filen med f 
ret "filnr". 


GET #filnr,variabeln Läser "längd" antal tecken från 
COUNT längd fil pekaren i filen "fil nr" och lag 

dessa i variabeln "variabeln". 

PUT #fil nr, variabeln Skriver ut variabeln "variabeln" t 

filen "filnr" från filpekaren. 

Fördelarna med random access är att man ej är begränsad av 
behandla nästa post utan man kan direkt läsa/skriva vilken 
som helst i filen. Random access går också fortare än sekve 
behandling. 


Här föl jer nu ett program som läser in en random access-fil 
kopierar de sex första posterna med postlängden 80 till en r 
random access-fil. 


10000 INTEGER : EXTEND 


10010 OPEN 'TEST1.DAT' AS FILE 1 
10020 PREPARE 'TEST2.DAT' AS FILE 2 
10030 Postiängd=80 


10040 FOR 1=0 TO 5 


10050 ! LÄS IN POST 

10060 GET #1,Poststrängn COUNT Postlänqd 

10070 ! SKRIV UT POST 

10080 PUT #2,Poststrängn 

10090 NEXT I 

10100 CLOSE 1,2 

10110 END 


Ovanstående exempel kan sägas vara en sekvensiell hantering 
random access-fil. Oftast förekommande är dock behovet av at 
kunna läsa och skriva valfri post. 

Nedan finns exempel på rutiner för att läsa och skriva i en 
random access-fil med valfri postlängd. 


30 




10000 Fl 1=1 

10010 OPEN 'TEST1.DAT' AS FILE Fil 

10020 Postiängd=97 

10030 DIM Postn=Postlängd 

10040 DEF FNLäspostn(Post,Fil) LOCAL Bufn=256 

10050 Ec=0 

10060 ON ERROR GOTO 10100 

10070 POSIT #Fi1 ,Post*Postlängd 

10080 GET #Fi 1, Bufn COUNT Postlängd 

10090 RETURN Bufn 

10100 Ec=ERRCODE 

10110 RETURN SPACEn(Postlängd) 

10120 FNEND 
10130 ! 

10140 DEF FNSkrivpost(Post,Fil,Bufn) 

10150 Ec=0 

10160 ON ERROR GOTO 10200 

10170 POSIT #Fi 1,Post*PostI ängd 

10180 PUT #Fil, Bufn 

10190 RETURN 0 

10200 Ec=ERRCODE 

10210 RETURN Ec 

10220 FNEND 


När man gör PREPARE på en fil, reserveras ett större antal 
sektorer. Vid CLOSE återlämnas de sektorer som inte har utnytt¬ 
jats. Ett exempel får visa. 

Om vi antar att PREPARE reserverar 32 sektorer och programmet har 
använt 6 sektorer så återlämnas 26. Skriver vi nu på 10:e sektorn 
i filen reserverar ABC800 plats för sektorerna 7-9. Ett problem 
här är om programmet tex skall läsa den 7:e sektorn utan att ha 
skrivit på den förut. I detta fall genereras error 37. Som 
exempel kan vi ta programmet nedan som ger utskriften: 

SKAPAT FILEN 

LAGT TILL POST 

Error 37 in 1 i ne 10150 

10010 INTEGER : EXTEND 

10020 PREPARE 'TEST.DAT' AS FILE 1 

10030 FOR 1=0 TO 6 

10040 An=STRINGn(253,65+1) 

10050 PUT #1,An 
10060 NEXT I 
10070 CLOSE 1 
10080 SKAPAT FILEN' 

10090 OPEN 'TEST.DAT' AS FILE 1 
10100 POSIT #1,20*253 
10110 An=STRINGn(253,65+20) 

10120 PUT #1,An 
10130 ;'LAGT TILL POST' 

10140 POSIT #1,10*253 
10150 GET #l,An COUNT 253 
10160 ;An 
10170 ;'LÄST POST' 

10180 CLOSE 1 
10190 END 





2.3.3 Adresseringsmetoder 


VI skall här gå Igenom olika metoder för att hitta en post p 
fil med random access-struktur. 


INDEXERAD ADRESSERING 


Indexerad adressering används när man vill underlätta en sek 
i el 1 bearbetning av posterna. Lagring av posternas id-värden 
då, tillsammans med en adressangivelse till postens faktiska 
position, i en s.k indextabell. För att snabbt kunna upptäcke 
en post inte finns, utan att behöva söka igenom hela tabeller 
sorteras vanligtvis denna. 

Vid hantering av större filer är det lämpligt att dela upp 
indextabellen i flera tabeller (i nivåer). 

Sökningen går då till på följande sätt : 

1 Sökning utförs i den första indextabellen. 

2 Resultatet av första sökningen är en adressangivelse till € 
underordnad tabell. 

3 Sök i den underordnade tabellen, osv tills postens faktiska 
adress är funnen. 
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Indextabel1 
nivå 1 


Indextabeller 
nivå 2 


Postfil 



SUKGÅNG 











SÖKNING I INDEXTABELLER 


Metoder för sökning 1 Indextabeller kan vara: 

* Sekvenslen sökning 

* Bi närsökning 

* Interpolering 

* Pseudoadressering (se separat avsnitt) 

Dessa sökmetoder kan med fördel även tillämpas vid sökning i 
andra tabeller. 


SEKVENSIELL SÖKNING 


Man jämför den sökta postens id-värde med id-värdena i tabell 
från tabellens början tills man hittar posten eller tills 
tabellen är slut. 

I medeltal behöver man då N/2 sökningar där N = antalet pöste 
tabellen. 


BINÄRSÖKNING 


Vid binärsökning sker ej sökning från tabellens början eller 
slut, som vid sekvensiell sökning, utan från tabellens mitt. 
avgör nu om sökt post, om den finns, är belägen i den övre el 
undre delen av tabellen. I den del som posten kan finnas i up 
pas ovanstående sökgång. På detta sätt har man minskat tabell 
storleken med lite mer än hälften. 

Ovanstående upprepas tills posten är funnen eller tills dess 
fler delningar av tabellen ej är möjligt. 

Maximalt antal sökningar som behövs med denna metod beräknas 

-INT(-L0G(N+1)/L0G(2)) 

där N = Antalet poster i tabellen. 

Exempel: 

För 1000 poster krävs maximalt 10 sökningar. 

För exempel på hur en rekursiv binärsökning kan gå till refer* 
till funktionen FNBinsök i bilaga 2. 

INTERPOLERING 


Om id-värdena är någorlunda jämt fördelade kan man jämföra dei 
högsta och lägsta i d-värdet med det sökta och ungefärligt räkr 
ut var den sökta posten borde vara belägen. Efter en första 
jämförelse kan man sedan succesivt pejla in det sökta id-värde 
som vid binärsökning eller sekvensiell sökning. 
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PSEUDOADRESSERING (HASH-METOD) 


Pseudoadressering används när identifikationsbegreppet för pos¬ 
terna är spridda över ett stort område. 

Metoden går ut på att transformera i d-begreppens värde till en 
acceptabel adress enligt en given algoritm (sk randomiserings- 
algoritm). Den kan se ut på olika sätt men de vanligaste är 
"mittersta kvadrat-metoden" och "division rest-metoden". 


"MITTERSTA KVADRAT-METODEN" 

Denna metod går ut på att kvadrera i d-värdet. (Om i d-värdet ej är 
numeriskt kan man exempelvis addera ihop id-värdenas ASCII- 
värden. 'ABC' skulle då ge id-värdet 65+66+67=198.) Sedan använ¬ 
der man ett lämpligt antal siffror plockade ur mitten av talet. 

För att förenkla uttagningen av de "mittersta" siffrorna kan 
talet omvandlas till en sträng med funktionen NUMn( ). 

Kan man inte få ut några siffror ur mitten (strängen blev för 
kort), fylls strängen ut med nollor före och efter tills det är 
möjligt. 

Ofta kan det vara så att man tex bara har 500 poster men 
i d-begreppet kan ha värden från 0 till 999 eftersom 500 medför 3 
i d-siffror. Man måste då krympa adressområdet ännu mer genom att 
multiplicera med en lämplig faktor (i det här fallet 500/1000 
=0.5). Detta ger, efter att man har tagit INT av resultatet, ett 
tal område på 0-499. 


DIVISION REST-METODEN 

I stället för kvadrering divideras det numeriska id-värdet med 
antalet poster. Om id-värdet ej är numeriskt så kan man använda 
samma metod som beskrevs under "mittersta kvadrat-metoden". 

Resten vid divisionen används som adress, dvs post med numeriskt 
id 1235 i ett register med max 1000 poster får adress: 

ADRESS=ID-INT(ID/POSTANTAL)*POSTANTAL 

Adress = 1235 - INT(1235/1000)*1000 

På ABC800 kan detta enkelt beräknas med MODULO (MOD)-funktionen. 
Ovanstående blir då: 

Adress = MOD(1235,1000) dvs 235. 

Observera att man som "antal poster" bör välja ett primtal då det 
har visat sig att detta ger bättre spridning. Om man t.ex. har 
1000 poster väljer man 997 eller 1003 till algoritmen. En variant 
på detta är att man vet totala antalet poster, tex 1000, och 
primtalet närmast under detta tal (997 för 1000). Då fås hem- 
adresen ur: 

Adress = INT(M0D(idvärde,primtal)*postantal/primtal) 











ÖVRIGA METODER 


Ibland ar det inte nödvändigt att använda nlgon av ovanståer 
algoritmer utan det räcker med mycket enklare medel. Att di' 
id-vardet med 10, eller att ta ASCII-koden för första teckrn 
posten kan räcka för att fa en acceptabel adress. 


PROBLEM MED PSEUDOADRESSERING 

Randomiseringsalgoritmen kan leda till att flera poster får 
ma adress (sk hemadress). Detta innebär att alla poster inte 
hemadr ®ss utan far läggas någon annanstans, 
sk oyernovz-areor. For att vi skall kunna hitta en post som 
ligger i overflow-arean placerar vi en pekare, dvs en adres^ 
angivelse, till postens adress i hemadressen. Innehåller ove 
flovz-arean flera poster med samma hemadress får varje sådan 
innehall en pekare till nästa post. Detta leder till att vi 
en lankad lista. 

Ett annat vanligt problem är att man får flera poster med sa 
JOHANSSON. ld “ Värdet är efternamn *<an man ex.vis ha 100 st 


HANTERING AV OVERFLOW-AREOR 

Overflow-arean kan antingen ligga före eller efter området c 
hemadresserna finns,den sk primärarean. Detta är mycket minn 
kravande.Man kan utnyttja att det uppstår luckor /primärare 
och placera sina synonymer där (poster som ej fick plats dI 
hemadressen). p 

Vid den senare tekniken är den enklaste metoden att hitta le 
utrymme att soka sekvensiellt från hemadressen efter första 
lediga post. Om man kommer till slutet på arean börjar man c 
fran början, sk cyklisk sökning. Ett annat sätt, för att få 
re spridning,är att använda randomfunktionen som när den är 
storre an ett visst värde innebär att man söker nedåt i area 
fran hemadressen och annars söker uppåt. 

?l m ^f nVänder P seud ° adress ering på fil kan man nedbringa a 
let accesser genom att samla flera poster, som har erhållit 

buckets"*melfån" V / d lä ^ n 9^nvning överfes 

buckets mellan primar- och sekundärminnet. Får posterna in- 

pfats i sin bucket" kan man antingen öka "bucket"- s torleken 

man har minne nog, eller använda nagon av ovanstående metode 

UPPDATERING AV POSTER 

Vid inmatning av nya poster, som skall lagras, kontrollerar r 
om det finns plats pa hemadressen. Om det finns plats lagras 
ten dar. Annars lagras posten i overflow-arean. Vid raderinq 
poster kan det hända att en hemadress för en post blir ledi a 
kan man flytta en post fran overflow-arean till hemadressen 9 
vid stora poster kan detta bli otympligt. I dessa fall brukå 

oara flytt a pekare och märka hemadressen som ledig och låta 
ren till overflow-arean ligga orörd. 
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Om man vid borttagning av poster i overflow-arean vill 
samma handhavande och vid speciella tillfällen "städa" 
eller om man direkt vill flytta pekarna är en smaksak. 


använda 

listan, 


Den som vill läsa mer om olika adresseringsmetoder hänvisas till 
boken "Datasystem och Datorsystem", Sam Nachmens (Ref. 5). 









2.3.4 ISAM 


ISAM (Jndex-Sekvens1ell-Access-Metod) är en metod att 
organisera ett register 7ör att snabbt kunna söka poster. F 
na är alltid sorterade. Sortering sker vid inmatning. 


ISAM på ABC800 


På ABC800 finns ISAM att tillgå som ett hjälppaket med ett 
nya BASIC-instruktioner. ABC800-ISAM laddas från diskett. 

ISAM medför att flera program i en ABC800 Multi-User miljö 
arbeta mot samma fil. 

ISAM arbetar med två filer. En fil innehåller alla poster rr. 
komplett information. Fil nr 2 innehåller bara de sökbegrep 
sk nycklar (med adresspekare till fil nr 1), som äF"definie 


Indexfil 


Index nr 


Index nr 2 


Index nr 3 


Grunddata för ISAM 
indexantal. 


ADM 


ANDE 


BERT 


031- 


033- 


034- 


Nyckel 1 


Nyckel 2 


Huvudfi 1 


BERTILSS 

031-XXXX 


XXXXX 


XXXXXXX 


ANDERSSO 

033-XXXX. 


ADAMSSON 

034-XXXX,' 


XXXXXXX 


xxxxxxxxx 
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Vid sökning av en post läses först nyckelfilen för att få adress¬ 
pekaren till aktuell post. Därefter läses posten 1 huvudfilen. 

För att sökning skall gå snabbt är nyckelfilen alltid sorterad. 

Antalet nycklar till en post kan variera från 1 till 10, dock bör 
man inte överdriva antalet nycklar då dessa dubbellagras. I en 
ISAM-fil (där alla fält också är nycklar) tar varje post upp mer 
än dubbelt så mycket plats som vid sekvensiell lagring. 


DEFINIERA ISAM-fil 


Indexfilen har nedanstående utseende. Antingen kan den skapas med 
hjälpprogrammet CREINDEX.BAC, som följer med ISAM-paketet, eller 
också kan den skapas med ett eget program. 


Pos 

ASCII 

Förklaring 



1 

1 

ISAM typ. 



2 

0-1 och 8-9 





eller 255 

Drivenummer för postfil. 0m drivenr=255 



letas filen upp. 



3-10 


Namn på postfil, 8 pos. 



11-13 


Typ på postfil, 3 pos. 



14 

3 




15-16 


Antal index. 



17-25 

0 

För senare bruk. 



26-27 


Posti ängd. 



28-35 


Indexnamn, 8 pos. 



36 

3 




37-38 


Indexnummer. 



39 


Duplicerade nycklar J/N. 



40-41 


Startpos i post för index. 



42 


Längd på index. 



43 


Typ på index. 



44-47 

0 

För senare bruk. 



48-65 


Pos 28-47 upprepade för index 

nr 

2. 

66-83 


Pos 28-47 upprepade för index 

nr 

3. 

• 


Pos 28-47 upprepade för index 

nr 

n. 


Duplicerade nycklar är: Ja 

Nej 


Typ är: 


Binary 
ASCII 
Integer 
Float 
Double 


1 (bi närt) 
0 -"- 

0 (binärt) 
1 -"- 

2 -"- 

3 -"- 

4 -"- 


Efter alla indexupprepningar skall 10*253 bytes med CHRn(O) 
följa. 

Postfilen måste vara skapad (med PREPARE) men skall inte 
innehålla någon information. 


39 







NYABASIC-1nstruktioner för ISAM 


ISAM OPEN - öppnar ISAM-filen för bearbetning. 
ISAM WRITE - Skriver post i filen. 

ISAM READ - Läser post i filen. 

ISAM UPDATE - Uppdaterar befintlig post. 

ISAM DELETE - Tar bort befintlig post. 


ISAM OPEN 


Innan bearbetning av en ISAM-fil kan påbörjas måste den öppn 
som alla andra filer. Den vanliga OPEN-instruktionen kan ej 
användas utan istället används följande instruktion: 

100 ISAM OPEN '<enhet:>fil namne.typ>' AS FILE nr 

Syntaxen är identisk med syntaxen för den vanliga OPEN-instr 
tionen. Standard typ är ".ISM" 

OBSERVERA att namnet, som anges, skall ange INDEX-filen, int 
postfilen. 

En ISAM-fil stängs med den vanliga CLOSE-instruktionen. 


ISAM WRITE 


Skriver en ny post i ISAM-filen. 

100 ISAM WRITE #nr,sträng 

"Sträng" skall innehålla hela posten med fälten utfyllda til 
maximal längd. 


ISAM READ 


Används när filen skall läsas i en sorterad ordning eller vi c 
sökning av enskild post. 

100 ISAM READ #nr,strängl cINDEX sträng2> <KEY sträng3> 

<FIRST> 

<LAST> 

<NEXT> 

<PREVI0US> 

Resultatet av inläsningen läggs i strängl på samma sätt som \ 
INPUT. 

Läsningen sker efter det index som namnges av INDEX sträng2. 
Anges inget index kommer sist använda eller, om ingen tidiga 
läsning skett, första index att användas. 
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Om sökning på specifik nyckel önskas anges det med KEY sträng3, 
där sträng3 innehåller önskad nyckel. 

För utskrifter i sorterad ordning anges i stället för KEY orden 
FIRST, LAST, NEXT eller PREVIOUS som läser första, sista, nästa 
respektive föregående post. 


ISAM UPDATE 

Uppdaterar en befintlig post. Alla nycklar uppdateras. 

100 ISAM UPDATE #nr,Strängl TO Sträng2 

Strängl måste innehålla resultatet från föregående läsning. 
Sträng2 innehål ler den nya strängen som skall skrivas istället 
för Strängl. 


OBSERVERA att ISAM UPDATE måste föregås av ett ISAM READ. Om 
medskickad "Strängl" ej överensstämmer med posten från föregående 
läsning ges ERROR 123. Detta används för att kontrollera uppdate¬ 
ringen i ett Multi User-system. 


ISAM DELETE 


Tar bort en post ur ISAM-filen. 

100 ISAM DELETE #nr,Sträng 

"Sträng" måste innehålla resultatet från föregående läsning. 

OBSERVERA att den post som skall tas bort måste före ISAM DELETE 
läsas med ISAM READ. Om medskickad "sträng" ej överensstämmer med 
posten från föregående läsning fås ERROR 123. Detta används för 
att kontrollera eliminering av poster i ett Multi User-system 


FELMEDDELANDEN I ISAM 


Åtta nya fel medel anden har tillkommit i och med ISAM-paketet. 

120 - Nyckel finns ej 

121 - Dublettnyckel 

122 - Felaktig nyckel 

123 - Fel vid kontrolläsning 

124 - Index finns ej 

125 - Felaktig postlängd 

126 - Fel ISAM-fil version 

127 - Ej använd felkod 

128 - Slut på minne i centralen 

129 - Reserverad felkod 









PROGRAMEXEMPEL MED ISAM 





VI bestämmer oss för tex följande poststruktur. 


Fäl t 

Benämning 

Längd 

Typ 

1 

Artil kel nr 

15- 

ASCII 

2 

Benämning 

20 

ASCII 

3 

Sal do 

2 

INTEGER 

4 

In-pris 

8 

DOUBLE 

5 

Ut-pris 

8 

DOUBLE 

6 

Försäljning 

8 

DOUBLE 


Postlängd = 61 

Artikel nr och benämning skall bli våra söknycklar. 

För att skapa ISAM-filen kör vi programmet CREINDEX på 
ISAM-disketten. 


CREINDEX ställer flera frågor och vi besvarar frågorna med dat 
för ovanstående lagerregister. 

** Skapa ISAM-filer Ver x.xx ** 

* Skapa filer * 

Namn på nyckel fil ? ARTIKLAR 
Namn på huvudfil ? ARTIKLAR 
Postlängd ? 61 

* Skapa index nr 1 * 


Namn på index ? ARTNR 

Startposition ? 1 

Längd på index ? 15 

Indextyp (B,A,I,F,D) ? A 

Dublett-nycklar (J/N) ? N 

* Skapa index nr 2 * 

Namn på index ? BENÄMN 

Starposition ? 16 

Längd på index ? 20 

Indextyp (B,A,I,F,D) ? A 

Dublett-nycklar (J/N) ? J 


* Skapa index nr 3 * 

Namn på index ? <RETURN> 


Filerna är nu klara för användning. I bilaga 2 ges små enkla 
exempel på hur ISAM-instruktionerna kan användas för att bearb 
lagerfilen. Exemplen är EJ kompletta ifråga om felhantering. 
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3. DATALAGRING I PRIMÄRMINNET 


3.1 Aritmetik 

3.1.1 Variabel typer och precision 

Variabeltypen anger vad för typ av värden som kan tilldelas en 
variabel. Precisionen anger med hur många siffror datorn arbetar. 

De variabel typer som finns i BASIC är: 


* HELTAL dessa kan vara: * Enkla variabler 

* Vektorer 

* N-dimensionell matris 

* FLYTTAL dessa kan vara: * Enkla variabler 

* Vektorer 

* N-dimensionell matris 

* STRÄNGAR dessa kan vara: * Enkla variabler 

* Vektorer 

* N-dimensionell matris 


Vid flyttal kan man också ange med hur många siffror datorn skall 
arbeta (instruktionerna SINGLE och DOUBLE). Man bör alltid 
använda SINGLE utom då en utvidgad precision är av största vikt. 
SINGLE leder nämligen till ett avsevärt snabbare och mindre 
program. 

Vid SINGLE arbetar datorn med 7 siffror och vid DOUBLE med 16. 

Man bör alltid använda heltal där det går. Heltalen medger snab¬ 
bare exekveringstid och tar dessutom upp mindre plats i minnet 
jämfört med flyttalen. 

Det är inte bara i symboltabellen som minnesbesparningarna sker 
utan även i internkoden. Observera att det är skillnad mellan 
olika tal vad gäller hur mycket plats talet tar upp. Sålunda tar 
tal en: 

0-16 upp 1 (EN!) byte 

17 - 65535 upp 3 byte 

(-0) - (-16) upp 2 byte 

(-17) - (-65535) upp 4 byte 


Satsen 

10 IF PEEK(-747) THEN ;'ERROR' 
tar upp mer plats än 
10 IF PEEK(64789) THEN ;'ERR0R' 
som ger exakt samma resultat. 

Även vissa flyttal s-konstanter lagras ekonomiskt. Binära tal 
lagras snålare än de ej binära. 


Med andra ord; alla tal som kan skrivas som 2 ** n där n är ett 
heltal (-128) - (+127) lagras i två byte. 
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Exempel: 

Satsen 10 A.=4. platsbehov är: 

4 byte för radnumret 

3 byte för A.= 

2 byte för 4. 

Summa 9 byte 

Satsen 10 A.=0.1 platsbehov är: 

4 byte för radnumret 

3 byte för A.= 

9 byte för 0.1 

Summa 16 byte 

Tal som man lätt kan beskriva i binär form, tex 10 (1010 bi ni 
tar upp relativt liten plats (3 byte), medan 0.1 tar upp 9 b 

Exempel: 

A. =l./10. tar mindre plats än A.=0.1 
och 

B. =l./3. tar mindre plats än B.=0.333... 

Dock blir exekveringstiden längre om man använder det förra 
skrivsättet. 


* HELTAL 


Värdet av ett heltal lagras i två byte i tvåkornplementform. i 
två byte kan ett bi närtal skrivas inom tal området 0 till 655; 
tvåkornplementform blir tal området i stället -32768 till +327c 
tvåkomplementformen använder den mest signifikanta biten, dvs 
15, till att indikera om talet är negativt eller positivt. Är 
talet negativt är biten ettställd. Detta gör att man får vars 
försiktig i sina program så att variabeln ej "slår runt", dv 
från ett negativt värde till ett positivt och vice versa. De 
beror på att det skall vara möjligt att räkna med adresser i 
tal området 0 till 65535. 

I symboltabellen tar en enkel hel tal svariabel upp 6 byte. 


* FLYTTAL 

Ett flyttal är ett tal på formen: 

+/- Mantissa * 10 ** Exponent 

I datorn lagras ett enkelt flyttal i 4 byte vid SINGLE och i 
byte vid DOUBLE. Till skillnad från ABC80, som använde BCD- 
aritmetik, använder ABC800 bi näraritmetik. I datorn ser därme 
ett flyttal ut på följande sätt: 

byte 1 Exponenten 
byte 2-4/8 Mantissan 
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Beräkning av korrekt exponentvärde ur exponentbyten sker med 
hjälp av formeln: 

Exponentvärde = Exponentbyten - 128 

Byte 2 skiljer sig från de övriga 1 mantissan genom att den mest 
signifikanta biten anger om mantissan är negativ eller ej. Är 
biten ettställd är mantissan negativ annars positiv. 

För att spara plats så lagras inte den högsta biten i mantissan 
då den alltid pga av normalisering är "ett" (den biten används i 
stället för att visa tecknet på mantissan enligt ovan). Ett 
undantag från detta är då flyttalet är noll (0) vilket indikeras 
genom att exponentbyten är noll. 

I symboltabellen upptar ett flyttal 8 byte vid SINGLE och 12 byte 
vid DOUBLE. 


* STRÄNGAR 


Strängar används för att kunna hantera valfri text. Strängar 
används också vid numeriska beräkningar då beräkningar med ett 
stort antal siffror är möjligt på strängar mha ASCII-aritmetiken 
(se kap 3.1.2). 
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3.1.2 ASCII-aritmetik 


ASCII-aritmetiken är rnycket användbar vid beräkning av stora 
och där stor noggranhet behövs. För grundläggande ASCII-aritir 
hänvisas till "ABC om BASIC" och "AVANCERAD PROGRAMMERING PÅ 
80 . 

På ABC800 har det tillkommit en del nyheter i ASCII-aritmetik 
vilka redovisas nedan. 

* Antalet siffror har utökats till 125. 

* Exponent tillåts i indata. 

En annan nyhet är att om beräkning begärs med negativt antal 
decimaler tolkas detta som antal gällande siffror. 


Detta medför: 

;ADDn( 10.55','10.55',2) 2 decimaler 

21.10 

;ADDn('l0.55','10.55',-2) 2 gällande 

21 siffror 

;ADDn('10.55','10.55',-l) 1 gällande 

20 siffra 

Några fel finns dock: 


* Om addition eller subtraktion utförs med 0 som första term c 
andra termen är mindre än l.E-Q, där Q är större än antalet 
gällande siffror + 2, faller andra termen bort. 

Exempel: 

;ADDn('0','.lE-4',-2) 2 gällande 

0 siffror!! 


* Utskrift med PRINT USING och exponentformat OUUU) och expor 
over 99 ger helt fel utskrift i första BASIC-versionen. I ny 
BASICen blir exponenten utskriven riktigt men exponentdelen 
upp 5 tecken istället för 4. 

* Exponenter >126 eller <-127 lagras felaktigt. 
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3.2 Stränghantering 


I detta avsnitt behandlas nyheterna i stränghanteringen som finns 
på ABC800 gentemot ABC80. För grundläggande stränghantering refe¬ 
reras till "ABC om BASIC" och "BASIC II boken". 


NYHETER 


Stränghanteringen på ABC800 har några mycket användbara nyheter. 

* MIDn( , , ) kan stå i vänsterledet i ett stränguttryck. 

Exempel: 

MIDn(An,5,2)='AB' 

Detta förenklar tilldelning av en del sträng. 

Jmfr An=LEFTu()+'AB'+RIGHTn(). 

OBS! Strängens längd får ej ändras (An i exemplet ovan). 

* VARPTR() Funktion som returnerar adressen till en variabels 

dataarea. Fungerar på alla datatyper men är mest 
användbar på strängvariabler. 

* VAR00TO Funktion som returnerar adressen till en variabels 

parameterblock. Denna funktion är också mest användbar 
på strängvariabler. 


VARPTR, VAROOT 


VAROOT ger adressen till en variabels parameterblock. I sträng¬ 
variabelns fall ser parameterblocket ut på följande sätt (se även 
kap 5.3.5): 


VAROOT pekar hit -> Dimensionerad längd 

Dimensionerad längd 
Adress till dataarean 
Adress till dataarean 
Aktuell längd 
Aktuell längd 


(1) 

Adress 

(h) 

Adress+1 

(1) 

Adress+2 

(h) 

• 

(1) 

• 

(h) 

• 


Av ovanstående figur framgår att en strängvariabels dimensionera¬ 
de längd kan fås mha: 

Dimlen=PEEK2(VAR00T(Strängn)) 

En pekare ti11 dataarean för strängvariabeln fås mha: 
Varpntr=PEEK2(VAROOT(Stränga)+2) 

Detta motsvarar: 

Varpntr=VARPTR(Strängn) 
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Aktuell längd kan fås med: 

Aktien=PEEK2(VAROOT(Strängn)+4) 

Detta motsvarar 
Aktien=LEN(Strängn) 

Att komma åt denna viktiga information på detta enkla sätt är 
mycket användbart. Några exempel: 

Exempel 1: 

Från en Random Access-fil läses poster med en längd av 50 teck 
En post består av följande 3 delar: 

Namn 20 tecken pos 1-20 
Adress 20 tecken pos 21-40 
Telefon 10 tecken pos 41-50 

Ett enkelt sätt att dela upp posten är följande: 


Dimensionera de olika variablerna. 

10 DIM Postn=50,Namnn=0,Adressn=0,Teln=0 

De tre fältvariablerna dimensioneras till länden 0 för att inte 
ta upp onödig plats. "Flytta" därefter de tre fältvariablernas 
imaginära dataareor, som har längden 0, till sin respektive plc 
i dataarean för postvariabeln Postn. Ändra samtidigt dimensiont 
rad och verklig längd till längden på det fält som variabeln 
skall innehalla. 

10 DIM Postn=5O,Namnn=O,Adress0=O,Teln=O 
20 Postn=SPACEn(50) 

30 Adr=VARPTR( Postn) 

40 POKE VAROOT(Namnn),20,0,Adr,SWAP%(Adr),20,0 

50 POKE VAROOT(Adressn),20,0,Adr+20,SWAP%(Adr+20 ),20 0 
60 POKE VAR00T(Tel n),10,0,Adr+40,SWAP%(Adr+40),10,0 

På rad 30 tilldelas Adr adressen till Postn:s dataarea. Sedan 
forändras parameterblocken för de tre fältvariablerna så att de 
flyttas till Postn. "Poka" dit dimensionerad längd, adress ti 
dataarean och aktuell längd. Observera att alla värden ligger 
"swappade" (högsta byten sist). Sätt aktuell längd till det max 
värde som respektive fält har. 
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Pekarutseende 
efter det att 
fältvar. "flytt¬ 
ats" över post)*' 


Adress# 


Namn# 


Postas dataarea 


Post# 


Aktuell längd 
Pekare till värde 
Dim. längd 
Namnbyte 
Typbyte 

Länk till nästa 
variabel 















Vid läsning av en post till Postn hamnar automatiskt namn.adre 
och telefon 1 respektive variabler utan att programmet behöver 
dela upp Postn med hjälp av MIDn(). Likaså far Postn automatis 
rätt värde när någon av fältvariablerna tilldelas nytt innehål 
Vid utskrift av Postn behöver ej Postn skapas genom konkatener 
av fältvariablerna. Observera att vid tilldelning av fältvaria 
lerna måste dess maximala längd alltid fyllas upp, tex med bla 
tecken. 

Vid kommunikation med rutiner i assembler kan adressen till en 
eller flera BASIC-variabler lätt fås fram med VARPTR. Se vidan 
kap 6. 

En assemblerrutin kan läggas in i en sträng med tex 
Coden=CHRn(x,y,...,201) 

och sedan anropas med CALL(VARPTR(Coden)). Se kap 6. 


VAROOT 


DIM A =10 : A = 'ABC80 1 



DIM B =10 : B = 'X 


Dimensic 
Adress J 
Aktuel1 



Datc 


A och B är två 1 O-teckens strängar med olika innehåll. 
Genom att förändra B :s parameterblock kan B och A ha 
en gemensam dataarea. 


VAROOT 




10 



5 

u* 




£ A B C 8 0 


I 



Dimensic 
Adress t 
Aktuel1 



A. och B har nu en gemensam dataarea. Observera att om 
förändrar A :s aktuella längd kommer inte B att påverka 

Vid applikationer där gemensamma dataareor kan vara intr 
bör B dimensioneras till längden 0 (noll). Detta beror 
B :s gamla dataarea ej kan nås, utan tar endast upp onöc 







DIM 


Vid behov av strängmatriser med olika dimensionerad längd på 
varje enskilt element kan följande metod tillämpas: 

Dimensionera strängmatrisen UTAN att ge någon dimensionerad 
längd. 

DIM Aa(20,20) 

Tilldela de element som skall ha en längd över 80 tecken. 

An(x,y)=SPACEn(Längd) : An(xn,yn)=SPACEn(Ln) 

Redimensionera matrisen till den längd som övriga element i 
matrisen skall ha. 

DIM An(20,20)=5 

Alla icke tidigare dimensionerade element i matrisen får nu 
längden 5. 


LÅNGA STRÄNGAR 


När en enskild sträng blir så stor att tilldelning eller 
konkatenering (sammanslagning) inte är möjlig utan att minnet 
blir fullt, kan VARPTR och VAROOT utnyttjas för vidare bearbet¬ 
ning. 

Vi börjar med att dimensionera en sträng till dess maximala 
1 ängd. 

DIM Sn=xxxx 

Nu kan rutiner konstrueras för att lägga in respektive ta bort 
delar av strängen utan att påverka storlekskontroller i BASICen. 

Vill vi tilldela Sn en eller flera andra strängars värden gör vi 
det med följande metod: 

* Hämta adressen till Sn:s dataarea. 

* Hämta adressen till den tilldelande strängens dataarea. 

* Flytta dataarean med assemblerinstruktionen LDIR. 

* Justera aktuell längd i Sn med hjälp av VAROOT-funktionen. 

På samma sätt kan vi eliminera delar av strängen eller fylla 
delar av strängen med konstantvärden, se listningarna på 
funktionerna FNFILL, FNERASE och FNINSERT i bilaga 2. 
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4. HÅRDVARA 


4.1 Ljudgeneratorn 

På ABC800 består 1judgeneratorn av ett D-register kopplat som 
bistabil vippa. Vippan styrs via inport nr 5. 

Denna enkla ljudgenerator, till skillnad från ABC80:s programrr 
bara, medför att vi måste skapa programrutiner för att åstadkc 
ljud. 


ENKLA LJUD 

I de fall vi bara behöver ett "pip" styr vi ljudgeneratorn med 
följande kod. 


BASIC: 

PRINT 

CHRn 

(7); 

ASSEMBLER: 

TUT 

LD 

HL,PIP 



LD 

BC,1 



CALL 

000BH 



RET 



PIP 

DEFB 

07 

SAMMANSATTA 

LJUD 




När vi behöver variera längd och frekvens behöver vi lite annor 
lunda rutiner. Frekvensen bestämmer vi genom att variera tiden 
mellan varje gång vippan byter läge och längden styr vi tex mec 
antalet svängningar som vippan skall göra. 


BASIC: 


ASSEMBLER: 


! Integer mode 
FOR L=1 to Längd 
Z=INP(5) 

FOR F=1 to Tid 
NEXT F 


NEXT 

L 


TUT 

EQU 

* 


LD 

B,D 


LD 

D,00H 

LOOP 

EQU 

* 


IN 

A.05H 


PUSH 

Bd 

WLOOP 

EQU 

* 


DJNZ 

WLOOP 


POP 

BC 


DEC 

DE 


LD 

A,D 


OR 

E 


JR 

NZ,L00P 


RET 
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Inparameter till assemblerrutinen är reg D och E. D=frekvens och 
E=längd. 


Assemblerrutt nen kan lätt läggas in i ett BASIC-program på 
följande sätt: 

10 DEF FNTut(Frek,Längd) LOCAL Tutn=15 
20 Tutn=CHRn(66,22,0,219,5,197,16,254,193,27,122,179,32, 

245,201) 

30 RETURN CALL(VARPTR(Tutn),Frek*256+Längd) 

40 FNEND 

Lite data för "orgelspel". Tonerna är bara inbördes stämda. 


Ton 

Längd 

Frek 

b 

200 

242 

H 

205 

228 

C 

210 

214 

C// 

215 

204 

D 

220 

190 

D# 

225 

180 

E 

230 

170 

F 

235 

160 

F n 

240 

150 

G 

245 

143 

G n 

250 

136 

A 

255 

128 

B 

255 

120 

H 

255 

114 

C 

255 

107 

c n 

255 

102 

D 

255 

95 

D# 

255 

88 

E 

255 

85 

f n 

255 

80 

G 

255 

73 


Vi försöker göra en lång ton, tex 

FOR 1=1 TO 1000 
Z=INP(5) 

NEXT I 

Vi kommer att höra ett "plick" varje sekund i tonen. Detta 
"plick" kommer från klockrutinen som varje sekund behöver lite 
längre tid på sig för att uppdatera klockan. Detta kan vi komma 
ifran genom att lägga in ett DI (Disable Interrupt) före och ett 
El (Enable Interrupt) efter rutinen som gör tonen. 

OBSERVERA att om tonen är längre än 10 ms kan klockan komma att 
gå fel och om tonen är längre än 20 ms så kommer klockan att gå 
fel. Anledningen är att klockan uppdateras varje 10:e ms. Om 
interruptet är avstängt missas en uppdatering. 


53 






4.2 VDU (80 tecken) 


ABC800 levereras med olika bildskärmalternativ. Detta avsnitt 
behandlar den monochroma 80-teckensvarianten. 

När ABC800 är utrustad med en 80-teckens skärm (ea 80-teckens 
VDU-kort i datorenheten) sköts representationen på skärmen av e 
speciell VDU-krets (MC 6845). Se LUXOR servicemanual. 

VDU-kretsen genererar synk-signaler till bildskärmen samt styr¬ 
signaler för minnesavkodning och bildgenerering. Kretsen 
innehåller olika register för generering, tex antal rader som 
skall visas, från vilken adress i minnet visning skall ske etc. 

Kretsen är även förberedd för användning av ljuspenna. 

Kretsen kan programmeras direkt från BASIC med 

OUT 56,reg,57,data ! Skrivning 

Där "reg" är det register vi vill skriva till. 

"data" är det värde vi vill skriva in i registret. 

Detta kan utnyttjas till ett antal olika saker: 

1. Modifiera utseendet på cursor. 

2. Flytta "bilden" horisontellt/vertikalt på bildskärmen. 

3. Öka radantalet till 25. 


Modifiera cursor 


Register 10 och 11 innehåller information för cursor. Register ; 
används normalt av BA$IC:en medan register 11 kan ändras för att 
man tex ska få "fet" cursor. 

Exempel: 

OUT 56,11,57,9 ! Ger "fet" cursor (2 linjer) 


Flytta "bilden" 


Med olika värden i register 2 (mellan ca 80 och 100) flyttar man 
bilden horisontellt. 

Och med olika värden i register 5 (0 - 31) sker flyttning verti¬ 
kalt. 

OBS! 

I vissa fall kan "synk"-problem uppstå. 

Se vidare programmet CRTADJ i bilaga 2, som innehåller ett komp¬ 
lett programexempel för att "flytta" bilden i alla riktningar. 
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Öka radantalet till 25 


ABC800s bildminne består av 2kbyte (2048 byte). En enkel beräk¬ 
ning ger att 2048/80 = 25.6, dvs drygt 25 rader. Det outnyttjade 
utrymmet kan normalt sett ej utnyttjas men med en speciell 
programsekvens kan VDU-kretsen initieras för att även skriva ut 
denna del. I programsekvensen lägger vi också ut den önskade 
textinformationen med tex ;CHRn(l2), som ej kan raderas. 

Exempel: 

10000 DEF FNInirow25(Textn) LOCAL Vdun=0 

10010 OUT 56,6,57,25 

10020 POKE VAR00T(Vdun),80,0,32688,127 

10030 Vdun=Textn 

10040 RETURN -1 

10050 FNEND 

10060 ! 

10070 Z=FNInirow25('DETTA ÄR RAD 25 ELLER RAD -1') 


VDU-kretsens register 


Reg nr Reg namn 


Normal värde 


0 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 
17 


Horisontal total 
Horisontal display 
Horisontal sync delay 
Horisontal sync width 
Vertical total 
Vertical adjust 
Vertical display 
Vertical sync pos 
Interlace mode 
Max line adress 
Cursor start in line 
Cursor end in line 
Start adress VDU mem (h) 
Start adress VDU mem (1) 
Cursor adress (h) 

Cursor adress (1) 

Light pen reg (h) read only 
Light pen reg (1) read only 


127 

80 

100 

9 

30 

4 

24 

28 

0 

0 

40 

8 

120 

0 

120 

0 

? 


(tecken per rad) 


(antal rader) 


(adress bildminne) 

( ) 
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4.3 HögupplösnlngsgrafIken 
4.3.1 Allmänt 

Högupplösningsgrafiken (härefter förkortad HR-grafiken) är en 
option till ABC 800 och kan användas på både M och C modellen. 

HR-grafiken kan, om så önskas, användas samtidigt med normalt 
bildminne. Bilden består av 240*240 "pixels" där varje pixel är 
direkt adresserbar. Varje pixel kan anta fyra olika (logiska) 
färger (0-3). Vilka ("fysiska") färger 0-3 skall representera 
bestäms med ett färgval skommando. 

HR-bilden ligger lagrad i ett 16 Kbyte (16384 byte) minne med 
startadress 0. Detta medför att åtkomst av HR-minnet är besvärlig 
pga att BASIC-tolken upptar samma minnesutrymme. PEEK eller P0KE 
kan inte användas. 

De sätt som finns att adressera HR-minnet är antingen genom att 
använda de nya BASIC-instruktionerna eller att använda assembler, 
vilket kommer att visas längre fram. 


4.3.2 BASIC-instruktioner 


FGCTL färggrupp 


FGFILL x,y<,färgnr> 


FGLIME x,y<,färgnr> 


Väljer angiven färggrupp. Färgrupp kan 
anta värden mellan 0-127 och 128-255. Det 
senare området medför att den vanliga 
textbilden väljs bort. Vilka färger varje 
färggrupp representerar finns beskrivet i 
bilaga 8 och BASIC II manualen. 

Fyller en rektangel från föregående posi¬ 
tion till position x,y med färg färgnr. 

0m färgnr utelämnas antas senast använda 
färg. 


Drar en rät linje från föregående posi¬ 
tion till position x,y. Även här kan 
färgnr utelämnas. 


FGPAINT x,y<,färgnr> Fyller en sluten yta med färg färgnr. Den 

yta som skall målas innesluts lämpligen 
med FGLINE. Färgnummer kan utelämnas även 
här. 


FGPOINT x,y<,färgnr> Sätter en "pixel" i position x,y med färg 

färgnr. Detta är den instruktion man 
lämpligen startar med. Färgnummer kan 
utelämnas. 

FGPOINT(x,y) Returnerar färgen på pixel i position 

x,y. 
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Exempel: 




10 FGPOINT 0,0,0 
20 FGFILL 239,239 


30 FGCTL 4 
40 FGPOINT 50,50,2 
50 FGLINE 50,150 
60 FGLINE 150,150 
70 FGLINE 150,50 
80 FGLINE 50,50 
90 FGPAINT 75,75,2 


! Sätt aktuell position till 0,0 
med färg 0 

! Fyll till position 239,239 med 
färg O 

! Obs rad 10-20 är enklaste sättet 
! att blanka HR-bilden (Jmfr 
;CHRn(12)). 

! välj färggrupp 4 


Fyll rektangel med färg 2 


LITE KURIOSA 


HR-biIdens startposition på skärmen kan bestämmas med kommandot 
OUT 6,radnr där radnummer kan variera mellan 0-255. 

OBS! 

Port 6 används av vissa på marknaden förekommande minneskort och 
kan då ej användas tillsammans med HR-minnet. En felaktig använd¬ 
ning kan orsaka att programmet "dyker". 


4.3.3 Animation 

Rörliga bilder går också att åstadkomma med hjälp av lite knep 
och knåp. Färggrupperna mellan 72-127 och 200-255 är avsedda för 
detta. Färggrupperna används två och två, ex.vis 72,73 där tex 72 
har färg 2=röd och 3=svart och grupp 73 har färg 2=svart och 
3=röd. 



Sätt FGCTL 72 och rita med färg 2 utan att det syns något på 
skärmen. Växla sedan till FGCTL 73 och visa den nyss ritade bil¬ 
den. Rita ånyo med färg 1, som inte syns, och växla till FGCTL 72 
för att visa den sist ritade bilden osv osv. 

Ett problem är att radera de "gamla" bilderna (genom att rita med 
färg 0) utan att förstöra den bild som visas på skärmen. Detta är 
löst i BASIC:en genom att man sätter 'skyddsbitar' i färgnummret. 
Varje pixel upptar två bitar i HR-minnet. Med hjälp av två bitar 
kan vi beskriva talen 0-3. 

RITA MED FÄRG SKYDDA FÄRG ANVÄND FÄRG NR 


1 

2 

256*2+1 

= 513 

2 

1 

256*1+2 

= 258 

0 

2 

256*2+0 

= 512 

0 

1 

256*1+0 

= 256 
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PRINCIP FÖR ANIMERING 


1 Blanka HR-bllden. 

2 Välj en lämplig färggrupp. 

3 Rita en bild i samma färg som färggruppens bakgrundsfärg. 

4 Byt färggrupp så att bilden framträder. 

5 Rita nästa bild i den nya färggruppens bakrundsfärg. 

6 Byt färggrupp så att den nya bilden framträder. 

7 Radera den gamla bilden (som ej framträder) genom att rita 

med färg O och rita en ny bild i bakgrundsfärgen. 

8 Upprepa från 6. 

OBS! 

Rita alltid med skyddsbitarna satta enligt ovanstående tabell. 
Ett litet programexempel på animering finns listat i bilaga 2. 


4.3.4 Exempel 

HR-minnet upptar 16 kbyte (16384 byte) med startadress 0. Varje 
pixel tar upp två bitar. HR-minnet har följande indelning: 

Adress Innehåll 


0-59 

60-63 

64-123 

124-127 


Pixelrad 0,239-239,239 (x,y - x,y) 
Ej använda 

Pixelrad 0,238-239,238 (x,y - x,y) 
Ej använda 


• 

15296-15355 Pixelrad 0,0-239,0 (x,y - x,y) 

15356-16383 Ej använda 

I och med att HR-minnet tar upp samma plats i adressrummet som 
BASIC-interpretatorn, går det inte att göra POKE/PEEK (som i 
bildminnet). Enda sättet att skriva/läsa information i HR-minnet 
(förutom med de reserverade BASIC-instruktionerna) är att använda 
assembler. 

När man exekverar kod i de adresser bildminnet upptar (där ligger 
optionsprommet som innehåller rutinerna för FG...) väljs HR-min¬ 
net automatiskt in. 

På adress 32765 ligger assemblerinstruktionerna LDIR följt av 
RET. Med hjälp av detta kan vi bygga upp följande rutiner för 
läsning resp. skrivning i HR-minnet: 


EQU 

★ 

SKRIV EQU 

* 

LD 

HL,HR.ADR 

LD 

HL,VAR.ADR 

LD 

DE,VAR.ADR 

LD 

DE,HR.ADR 

LD 

BC,ANTAL 

LD 

BC,ANTAL 

JP 

32765 

JP 

32765 
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I BASIC: 



100 Läsn=CHRn( 33) +CVUn( Hradr) +CHRn( 1) +CVnn( Antal) + 

CHRn(195,253,127) 

110 Dumn\y=CALL(VARPTR(Läsn) ,VARPTR(Hrn) 

100 Skrivn=CHRn(33)+CVT%n(VARPTR(Hrn))+CHRn(1)+CVT%n(antal)+ 
CHRn(195,253,127) 

110 Dumn\y=CALL(VARPTR(Skrivn),Hradr) 

Dessa grundrutiner använder vi oss av när vi vill spara hela HR- 
bilder på fil, antingen diskett/kassett eller skrivare (som kla¬ 
rar HR-grafik). Se funktionerna FNHrput, FNHrget FNHrsave, 
FNHrload och FNHrerase i bilaga 2. 
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5.1 Systemvariabler 

5.1.1 Internvariabler 


5. BASIC-TOLKEN 


Här följer en förteckning över de adresser som används internt a\ 
BASIC-interpretatorn samt det programinformationsbi ock som föregå 
varje program. 

Ofta används adresserna direkt ur nedanstående lista. Detta kan c 
medföra problem vid framtida användning. Det korrekta sättet är e 
referera till indexregister IY eller SYS(IO), som alltid pekar ti 
aktuellt BASIC-blocks början (0FF00H) och läsa minnet med offset 
(00H-80H) fran detta register. 

Exempel: 

Assemblerrutinens utseende (Finns i Asmn) 

PUSH IY 
POP HL 
ADD HL,DE 
RET 

10000 DEF FNIy(Offset) 

10010 RETURN SYS(10)+0ffset 
10020 FNEND 

Detta medför att alla systemvariabler för BASIC är refererbara (d 
har prefix Y i listan). För att nå värden utanför denna lista mås 
diverse länkar i listan användas. 

Exempel: 

Radbredd=PEEK(PEEK2(FNIy(64))+8) eller Radbredd=PEEK(65364) 

Kolumn=PEEK(PEEK2(FNIy(64))+6) eller Kolumn=PEEK(65362) 

Rad=PEEK(PEEK2(FNIy(64)+7) eller Rad=PEEK(65363) 

Bofa=FNIy(6) 

Eofa=FNIy(8) 



I minnet 


Fil start 


Filslut 


Slaskarea för BASIC 


Långa _va_riabel_namn 


Program 


Prpgramblock 


Stack 


f - 

I_ 1 _ 

Vari abel definjt io ner 
COMMON-area 


} 


-TOP 

EOFA 


20 bytes 
'BOFA 

■RUN-SP 


"HEAP 
■ COMTOP 
Botten 


På fil 


Programblock 

*\ 

Program 

v 

Långa variabel namn 

> 

Variabel definitioner 

•v 


Programstorlek 

Angivet i byte 4 
och 5 i progr.blocket 

Antalet var. x 4 


BASIC-programmets utseende i internminnet och på fil 
















Adr D Adr H Label Init Kommentar 


65280 

FFOO 


65281 

FF01 


65282 

FF02 


65283 

FF03 


65284 

FF04 W 

Y.ERLOB 

65285 

FF05 


65286 

FF06 W 

Y.BOFA 

65287 

FF07 


65288 

FF08 W 

Y.EOFA 

65289 

FF09 


65290 

FFOA W 

Y.HEAP 

65291 

FFOB 


65292 

FFOC W 

Y.BOTM 

65293 

FFOD 


65294 

FFOE W 

Y.TOP 

65295 

FFOF 


65296 

FF10 W 

Y.TOPPRG 

65297 

FF11 


65298 

FF12 W 

Y.CONTSP 

65299 

FF13 


65300 

FF14 W 

Y.RESSP 

65301 

FF15 


65302 

FF16 W 

Y.CMDSP 

65303 

FF17 


65304 

FF18 W 

Y.LOCBAS 

65305 

FF19 


65306 

FF1A W 

Y.GENEND 

65307 

FF1B 


65308 

FF1C 


65309 

FF1D B 

Y.FL 

65310 

FF1E B 

Y.PREC 

65311 

FF1F B 

Y.DIGITS 

65312 

FF20 B 

Y.ASCSAV 

65313 

FF21 B 

Y.ASCPRE 

65314 

FF22 B 

Y.DEFLOW 

65315 

FF23 B 

Y.INT 

65316 

FF24 W 

Y.STACK 

65317 

FF25 


65318 

FF26 B 

Y.PRSTAT 

65319 

FF27 B 

Y.XQS 

65320 

FF28 W 

Y.CURDEF 

65321 

FF29 


65322 

FF2A W 

Y.FORCH 

65323 

FF2B 


65324 

FF2C W 

Y.VARTB 

65325 

FF2D 


65326 

FF2E W 

Y.VARBAS 

65327 

FF2F 


65328 

FF30 W 

Y.COMTOP 

65329 

FF31 


65330 

FF32 W 

Y.COMCS 

65331 

FF33 


65332 

FF34 B 

Y.USERCS 

65333 

FF35 B 

Y.TRCLU 

65334 

FF36 W 

Y.TRCVAR 

65335 

FF37 


65336 

FF38 W 

Y.VAROOT 


Lokal bas vid ON ERROR 

Pekare till program- 
1nformationsblocket 
Pekare till sista byten 
i BASIC-programmet 
Pekare till första 
lediga byte i minnet 
Botten på BASIC-minnet 
(RAM) 

Toppen av BASIC-minnet 
(RAM) 

Högsta adr för programmet 

Stackpekare att använda 
vid CONTINUE 
Stackpekare att använda 
vid RESUME 

Stackpekare att använda 

i direktmode 

Lokal variabel pekare 


Diverse flaggor *2 
Flyttalsprecision (4/8) 
DIGITS-värde (1-) 


OPTION BASE-värde 
Interrupt byte *5 


Programstatus *3 
Exeicveringsstatus *4 


Start på variabellista 

Toppen på COMMON- 
variabi erna 

Checksumma för C0MM0N- 
variablerna 
Senaste kanalval 
Logisk enhet vid TRACE 
Sist ändrade variabeln 

Sist passerade VAROOT 
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Adr D 

Adr H 

Label 

Init 

Kommentar 

65337 

FF39 




65338 

FF3A W 

Y.IPSAV 


Instruktlonspekare 

65339 

FF38 



65340 

FF3C W 

Y.RDPTR 


Pekare till aktuell position i 

65341 

FF3D 



DATA-sats 

65342 

FF3E W 

Y.RDPTR1 


Pekare till aktuell DATA-sats 

65343 

FF3F 



65344 

FF40 W 

Y.LUCH 


Pekare till första öppna fil 

65345 

FF41 



(CON:) 

65346 

FF42 W 

Y.ONERR 


Pekare till ON ERROR-rutin 

65347 

FF43 



65348 

FF44 B 

Y.ERRCOD 


ERRCODE 

65349 

FF45 W 

Y.SPSAV 


Temporär lagring av reg SP 

65350 

FF46 



65351 

FF47 F 

Y.RND 


Gammalt slumptal 

65352 

FF48 



65353 

FF49 




65354 

FF4A 




65355 

FF4B 




65356 

FF4C W 


00 

Pekare till nästa fil- 

65357 

FF4D 


00 

parameterlista (IX) 

65358 

FF4E B 

LU.LU 

00 

Fil nummer 

65359 

FF4F B 

LU.STAT 

07 

Status 

65360 

FF50 W 

LU.DCB 


Entrypoint 

65361 

FF51 



65362 

FF52 W 

LU.POS 


Kolumn (O-Radbredd) 

65363 

FF53 



Rad (0-23) 

65364 

FF54 W 

LU.WID 

28/50 

Radbredd 

65365 

FF55 


00 


65366 

FF56 B 

LU.FC 


Sist utförda operation 

65367 

FF57 W 

LU.ISAMB 


ISAM-block 

65368 

FF58 




65369 

FF59 W 

LU.EOF 


Antal block i filen 

65370 

FF5A 




65371 

FF5B W 

LU.BUFN 


Nummer på aktuellt 

65372 

FF5C 



block i bufferten 

65373 

FF5D W 

LU.RNDRC 


Blocknummer för 

65374 

FF5E 



random access 

65375 

FF5F B 

LU.RNDO 


Random access buffert offset 

65376 

FF60 B 

LU.BUFH 


Buffertadress (H) 

65377 

FF61 B 

LU.EXT 


LU-block extension 

65378 

FF62 B 

LU.LFT 


DOSBUFnr 
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Adr D 


Adr H Label 


Init 


Kommentar 


65379 FF63 S23 UTTLLU LU-Block för temporära ope 

65380 FF64 tioner. Indelning lika med 

65381 FF65 ovanstående. 

65382 FF66 

65383 FF67 

65384 FF68 

65385 FF69 

65386 FF6A 

65387 FF6B 

65388 FF6C 

65389 FF6D 

65390 FF6E 

65391 FF6F 

65392 FF70 

65393 FF71 

65394 FF72 

65395 FF73 

65396 FF74 

65397 FF75 

65398 FF76 

65399 FF77 

65400 FF78 

65401 FF79 

65402 FF7A __ 



FF7B' 

TT - 

DEVTBÄ 

~5B 

Pekare till länkad 

65404 

FF7C 



11 

enhets!i sta 

65405 

FF7D 

W 

STMTBA 

06 

Pekare till länkad 

65406 

FF7E 



09 

instruktionsl i sta 

65407 

FF7F 

W 

FNKTBA 

DC 

Pekare till länkad 

65408 

FF80 



06 

funktionsl i sta 

65409 

FF81 

W 

CTOBUF 

00 

Pekare till 

65410 

FF82 



FD/FB 

kassettbuffert 0 

65411 

FF83 

W 

XQTPTR 

2E 

Pekare till AUTOSTART- 

65412 

FF84 



00 

kommando 

65413 

FF85 

W 

CTRLCPTR 

23 

Pekare till CTRL-C flagga 

65414 

FF86 



FF 

Hopp till UNSAVE-rutin 

65415 

FF87 

S3 

CMDUNSA 

C3 

65416 

FF88 



36 


65417 

FF89 



00 


65418 

FF8A 

S3 

NMIENT 

C3 

NMI-interrupt entry 

65419 

FF8B 



00 

Hit sker hopp vid NMI 

65420 

FF8C 



00 

Släck högupplösningsgrafik 

65421 

FF8D 

S3 

HRCLR1 

C3 

65422 

FF8E 



9C 

(anropas av bl a LIST-komme 

65423 

FF8F 



19 

Adress till Läs 1 tecken 

65424 

FF90 

S3 

CONSI 

C3 

65425 

FF91 



40 


65426 

FF92 



03 


65427 

FF93 

S3 

KILLTYPE 

C3 


65428 

FF94 



9C 


65429 

FF95 



19 


65430 

FF96 

S3 

USERTRAC 

C3 

Användarrutin för 

65431 

FF97 



BB 

debugging 

65432 

FF98 



2C 

Hastighet vid skrivning (C 

65433 

FF99 

B 

CASSPEED 

28 
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Adr D 


Adr H Label 


Init 


Kommentar 


65434 

FF9A S3 

DEBUGENT 


65435 

FF9B 



65436 

FF9C 



65437 

FF9D S3 

RST6ENT 


65438 

FF9E 



65439 

FF9F 



65440 

FFAO S3 

RST7ENT 


65441 

FFA1 



65442 

FFA2 



65443 

FFA3 S3 

ISAMOPN 


65444 

FFA4 



65445 

FFA5 



65446 

FFA6 S3 

O.MATARI 


65447 

FFA7 



65448 

FFA8 



65449 

FFA9 S3 

MAKEMAT 


65450 

FFAA 



65451 

FFAB 



65452 

FFAC W 

ERRPTR 


65453 

FFAD 



65454 

FFAE B 

CASBSY 

00 

65455 

FFAF 



65456 

FFBO S16 

DARTVEK 

87 

65457 

FFB1 


03 

65458 

FFB2 


87 

65459 

FF33 


03 

65460 

FFB4 


6D 

65461 

FFB5 


03 

65462 

FFB6 


89 

65463 

FFB7 


03 

65464 

FFB8 


87 

65465 

FFB9 


03 

65466 

FFBA 


87 

65467 

FFBB 


03 

65468 

FFBC 


87 

65469 

FFBD' 


03 

65470 

FF3E 


87 

65471 

FFBF 


03 

65472 

FFCO S16 

SIOVEK 

87 

65473 

FFC1 


03 

65474 

FFC2 


87 

65475 

FFC3 


03 

65476 

FFC4 


87 

65477 

FFC5 


03 

65478 

FFC6 


87 

65479 

FFC7 


03 

65480 

FFC8 


87 

65481 

FFC9 


03 

65482 

FFCA 


87 

65483 

FFCB 


03 

65484 

FFCC 


87 

65485 

FFCD 


03 

65486 

FFCE 


87 

65487 

FFCF 


03 


RST 30H hoppar hit 

RST 38H hoppar hit 

Ledigt för ISAM-OPEN 

Ledigt för matris¬ 
matematik (Evaluering) 

Ledigt för matris¬ 
hantering (kompilering) 

DOS-anrop för att hämta error- 
text. A = Fel nr 

DART-vektor 

Interrupt-adress för tangent¬ 
bordet 


SlO-vektor 
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Adr D 

Adr H 

Label 

Init 

Kommentar 

65488 

FFDO S8 

CTCVEK 

87 

CTC-vektor 

65489 

FFD1 


03 


65490 

FF02 


87 


65491 

FFD3 


03 


65492 

FFD4 


87 


65493 

FFD5 


03 


65494 

FFD6 


87 

Interruptvektor för 

65495 

FFD7 


03 

klocka 

65496 

FFD8 S8 

OPTRAM 


Minne reserverat för 

65497 

FFD9 



optlonsrutiner 

65498 

FFDA 




65499 

FFDB 




65500 

FFDC W 



Adress till OPTIONS-prommet 

65501 

FFDD 



RAM-area (eg PR:/V24:) 

65502 

FFDE 




65503 

FFDF 




65504 

FFEO W 

TABPTR 


DE-save 

65505 

FFE1 




65506 

FFE2 B 

KEYFLG 


Tangentbordsfl agga 

65507 

FFE3 B 

KEYCHR 


Tangentbordsbuffert 

65508 

FFE4 W 

CASCHKAD 



65509 

FFE5 




65510 

FFE6 W 

CASSUM 



65511 

FFE7 




65512 

FFE8 B 

CASMODE 



65513 

FFE9 W 

CASADR 



65514 

FFEA 




65515 

FFEB W 

CASACTBF 



65516 

FFEC 




65517 

FFED W 

CRECNR 



65518 

FFEE 




65519 

FFEF B 

SPT.YEAR 


(0-99) Klocka 

65520 

FFFO B 

SPT.MNTH 


(1-12) 

65521 

FFF1 B 

SPT.DAY 


(0-31) (0 = stopp klocka) 

65522 

FFF2 B 

SPT.HOUR 


(0-23) 

65523 

FFF3 B 

SPT.MIN 


(0-59) 

65524 

FFF4 B 

SPT.SEC 


(0-59) 

65525 

FFF5 B 

SPT.TIC 


(0-93) 

65526 

FFF6 B 



Ufd-reset (nyare DOS) 

65527 

FFF7 W 



Ufd-offset (Nyare DOS) 

65528 

FFF8 




65529 

FFF9 B 



Ufd-drive (Nyare DOS) 

65530 

FFFA 




65531 

FFFB 




65532 

FFFC 




65533 

FFFD 




65534 

FFFE 




65535 

FFFF 







*2 Diverse flaggor 

Bit Label 

7 
6 
5 
4 
3 

2 FL.SPSI 

1 FL.XTND 
0 FL.IMODE 


*3 Program status 

Bit Label 

7 PRS.NWER 
6 PRS.HRG 
5 PRS.HI 
4 PRS.FPCO 
3 PRS.FPVR 
2 PRS.DP 
O PRS.FIX 


*4 Exekveringsstatus 

Bit Label 

7 

6 

5 

4 

3 XQS.TRC 
2 XQS.RESUM 

1 XOS.OMERR 
O XQS.CONT 


*5 Interrupt-byte 

Bit Label 

7 

6 

5 

4 

3 INT.STEP 
2 INT.DIR 
1 INT.TRC 
O INT.CTRC 


Kommentar 


Blanktecken är signifi¬ 
kant 

EXTEND mode 
Default INTEGER mode 


Kommentar 

Ny errorhantering används 
HR-grafik används 
Program är högt i minne 
Flyttal finns i COMMON 
Flyttal är allokerade 
Dubbel precision 
Fixed-up 


Kommentar 


Utskrift av radnr 
Inuti användares error- 
rutin 

ON ERROR-rutin finns 
CONTINUE är tillåtet 


Kommentar 


Single step 
Direkt mode 
TRACE 

CTRL-C flagga 
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* Programblock 


Adr 

Filadr 

Namn 

Förklaring 

0 

0 

B 

PR.BIN 

Anger BASIC-version (143) 

1 

1 

B 

PR.SEGN 

Segment nummer (Ej använd) 

2 

2 

B 

PR.PRSTAT 

Program status (Se nedan) 

3 

3 

B 

PR.CSUM 

Program checksumma(Ej använd) 

4 

4 

W 

PR.PRGSZ 

Längd på programmet (inkl. 
detta block, exkl. variabel 
definitioner) 

5 

5 




6 

6 

W 

PR.VARSZ 

Skalära variabel areans storlek 

7 

7 




8 

8 

W 

PR.VARAD 

Adress till skalära variabel- 
arean (vid laddning) 

9 

9 




10 

10 

U 

PR.ANTVR 

Antal variabler 

11 

11 




12 

12 

W 

PR.COMSZ 

Storlek på COMMON-fältet 

13 

13 




14 

14 

w 

PR.COMCS 

Checksumma för COMMON-deklara- 
tioner 

15 

15 




16 

16 

w 

PR.DEFCH 

Adr till 1:a DEF-raden. 
Relativt SYS(ll). 0 = Inga DEF 
finns 

17 

17 




18 

18 

w 

PR.DATACH 

Samma som ovan, men 1:a DATA- 
satsen 

19 

19 





Adressen i minnet fås med SYS(11) + adr. 





5.1.2 DOS-variabler 


Här följer en förteckning över de adresser som används internt av DOS. 


Adr D 

Adr H 

Label 


Kommentar 

64768 

FDOO 




Filens plats i biblioteket *1 

64769 

FD01 




Disk-selectkod *2 

64770 

FD02 W 




Aktuellt logiskt recordnr 

64771 

FD03 





64772 

FD04 W 




Logiskt recordnr i aktuell bitmapgrupp 

64773 

FD05 





64774 

FD06 W 




Aktuell bitmapgrupp 

64775 

FD07 





64776 

FD08 W 




Filens fysiska startrecord 

64777 

FD09 





64778 

FDOA W 




Högsta logiska recordnr i filen 

64779 

FDOB 





64780 

FDOC W 




Aktuell random access record i buffert 

64781 

FDOD 





64782 

FDOE 




Positionsräknare i bufferten 

64783 

FDOF 





64784 

FD10 





64785 

FD11 





64786 

FD12 W 




Adress till DOSBUFO *3 

64787 

FD13 





64788 

FD14 




DOSBUFnr * 10H 

64789 

FD15 




Disk-error kod *4 

64790 

FD16 





64791 

FD17 





64792 

FD18 




"Retry"-räknare. Startvärde 5/3 

64793 

FD19 





64794 

FD1A 





64795 

FD1B 





64796 

FD1C 

A 

SAVE 


OPEN/PREPARE/CLOSE/RESIZE 

64797 

FD1D W 

BC 

SAVE 

Spara värdet på BC-registret 

64798 

FD1E 





54799 

FD1F W 

DE 

SAVE 

Sparar värdet på DE-registret 

64800 

FD20 





64801 

FD21 W 

ON 

ERR 

35 

ERROR 35. Adress från FD33 om 0 

64802 

FD22 





64803 

FD23 W 

OM 

ERR 

36 

ERROR 36. Adress från FD33 om 0 

64804 

FD24 





64805 

FD25 W 

ON 

ERR 

37 

ERROR 37. Adress från FD33 om 0 

64806 

FD26 





64807 

FD27 W 

ON 

ERR 

38 

ERROR 38. Adress från FD33 om 0 

64808 

FD28 





64809 

FD29 U 

ON 

ERR 

39 

ERROR 39. Adress från FD33 om 0 

64810 

FD2A 





64811 

FD2B W 

ON 

ERR 

40 

ERROR 40. Adress från FD33 om 0 

64812 

FD2C 





64813 

FD2D W 

ON 

ERR 

41 

ERROR 41. Adress från FD33 om 0 

64814 

FD2E 





64815 

FD2F W 

ON 

ERR 

42 

ERROR 42. Adress från FD33 om 0 

64816 

FD30 





64817 

FD31 W 

ON 

ERR 

43 

ERROR 43. Adress från FD33 om 0 

64818 

FD32 





64819 

FD33 W 

ON 

ERR 

DEF 

Defaultadress vid error 

64820 

FD34 





64821 

FD35 
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64822 FD36 

64823 FD37 

64824 FD38 

64825 FD39 

64826 FD3A 

64827 FD3B 

64828 FD3C 

64829 FD3D 

64830 FD3E 

64831 FD3F 
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*1 FILENS PLATS I BIBLIOTEKET (OFDOOH) 


Bit 76543210 
xxxxssss 

där x x x x anger bibiiotekssektor (0-15) 

s s s s anger bibiioteksoffset (0-240 step 16) 


*2 DISK-SELECT KOD (0FD01H) 

Bit 76543210 
rspxxddd 

där r anger raderskyddad fil 

s anger skrivskyddad fil 

p anger om plats finns reserverad för filen 

x x 

d d d anger drivenummer 


*3 DOSBUFO ADRESS (0FD12H) 

Anger startadress til DOS-buffertar. Fungerar som en läspekare i 
buffertO. Används bl.a. vid hantering av fil-mapparna. 


*4 DISK-ERRORS (0FD15H) 
Bit Betydelse 


7 Not ready (Luckan öppen) 

6 Skivan är skrivskyddad 

5 

4 Not found (Disk-fel) 

3 CRC-fel (Checksumma-fel) 

2 

1 Command error (Felaktig beordning till disk-controlern) 

0 Busy 

Olika bitkombinationer kan förekomma. 

Intresserade hänvisas till Western Digitals, Technical MANUAL for 
FD179X för vidare information då disk-error byten återspeglar 
statusvärdet för diskcontroller-kretsen. 
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5.1.3 Olika DOS 


På ABC800 förekommer en rikhaltig flora av olika DOS beroende på v 
ken diskettstation som används. 

DOS Klusterstorlek Sektoradressering Station 


ABC 6-1X 1 
800 8" 4 
ABC 6-2X 4 
ABC 6-3X 4 
UFD 6.XX 32 


x32 

xl (Special) 

xl 

xl 

xl 


ABC830.DD82, 

DD88 

ABC832 

ABC838 

Winchester 


Vilket DOS en dator är utrustad med kan man ta reda på på något av 
följande sätt. Det enklaste (och säkraste) sättet är att titta på 
beteckningen på DOS-prommet (pos K2). Men man kan också prova på f 
jande sätt: 

Är innehållet på adress 

24678 = 195 -> ABC 6-2X ABC 6-3X 

24678 <> 195 -> ABC 6-1X 800 8" 

Är 24678 = 195 är skillnaden: 

24681 = 195 -> ABC 6-2X 

24681 <> 195 -> ABC 6-3X 

Skillnaden mellan ABC 6-1X och 800 8" (DD88) går ej att testa men 
kontroll om station är ansluten kan ske på följande sätt: 

OUT 1,45 

INP(l) = 255 -> Ingen ABC 6-1X station är ansluten. 

OUT 1,44 

INP(l) = 255 -> Ingen 800 8" station är ansluten. 

I tabellen ovan märks en viktig skillnad. Sektornr skall ej tas x3 
på nyare varianter av DOS. 

En annan skillnad är att sektor 6 och 7 (bit-map) är flyttade till 
sektor 14 och 15 på DOS från ABC 6-2X. 

På 800 8" (DD88) är sektoradressen kodad på följande sätt: 

Bit 15 14 13 12 11 10 9 8 7 6 5 4 3 2 1 0 
x x x x x xxxxxxOOOxx 

xxxxxxxxxx = sektornummer Programmet skall "skifta" 

bit 2 - 12 tre steg så 
att ovanstående resultat 
erhålles. Detta görs med 
följande funktion: 

DEF FNSectoradr(Sector,C1uster)=Sector/Cluster*32+( Sector AND 
(Cluster-1)) 
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NYA INTERNVARIABLER FÖR DOS 


DOS ABC 6-2X och ABC 6-3X har ytterligare en uppsättning Intern¬ 
variabler förutom de ovan redovisade. 

Följande enhetstabell läggs upp. 

Enhet Adress Default (hex) Namn_ 



+0 

08/10 

DRO offset 

SF 

+1 

2C 

Kanal nummer (Kortval) 

+2 

04 

Klusterstorlek 

MF 

+3 

2D 

Kanal nummer (Kortval) 

+4 

04 

Klusterstorlek 

(HD) 

+5 

24 

Kanal nummer (Kortval) 

+6 

20 

Klusterstorlek 

Ej använd 

+7 

25 

Kanal nummer (Kortval) 

+8 

01 

Klusterstorlek 


Enheten HD (Hard Disc) kan ej användas. Endast de två första enheterna 
är accessbara. 
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UFD DOS 


Följande enhetstabell läggs upp: 


Enhet Adress Default (hex) Hamn 


DR +0 

+1 
+2 
+3 

HD +4 

+5 
+6 
+7 

MF +8 

+9 
+10 
+11 

MO +12 

+13 
+14 
+15 

SF +16 

+17 
+18 
+19 
+20 
+21 
+22 
+23 
+24 
+25 
+26 
+27 

RM +28 

+29 
+30 
+31 


04-1C 

44 (D) 
52 (R) 
24 
20 

48 (H) 
44 (D) 
2C 
04 

4D (M) 
46 (F) 
2D 
01 

4D (M) 
4F (0) 
2E 
04 

43 (S) 
46 (F) 


DR select 
Ej använd 


Kanal 

Klusterstorlek 


Kanal nummer (kortval) 
Klusterstorlek 


Kanal nummer (kortval) 
Klusterstorlek 


Kanal nummer (kortval) 
Klusterstorlek 


Adress+20 - Adress+27 är 
lediga 


52 (R) 
4D (M) 


Kanal 

Klusterstorlek 


DR select talar om vilken enhet som skall accessas under DRx: 
skall offseten ligga till aktuell enhet. UFD kodas 1EH. 


Här 


Kanal ska kodas på följande sätt: 


Bit 76543210 


xxyyyyyy 

Winchester 

ABC 832/ABC 838 och DD88 
ABC 830 


yyyyyy = Kanal nummer 0-63 


xx 


= Controllertyp 


0 

1 

2 

3 
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UFD 

En nyhet 1 DOS 6.XX är att UFD (User Flle Directory) kan användas. 
Normalt på en enhet finns ett bibliotek (directory) med plats för 256 
filer. 256 filer är för lite på enheter typ Winchester. För att komna 
förbi detta kan nya bibliotek skapas. Ett UFD bibliotek är en vanlig 
fil med följande skillnader: 

Namnet har små bokstäver i extension-delen, tex EGET.Ufd. 

Filen kan ej läsas med INPUT eller GET pga att bibiiotekssektorerna 
saknar den normala fil informationen, som måste finnas först i varje 
sektor. 

UFD-biblioteket har selectkod 1EH. 

På adress 0FFF7H och tre byte framåt ligger informationen om aktuell 
UFD. 


0FFF7H Sektoroffset (1) 
0FFF8H Sektoroffset (h) 
0FFF9H Selektkod 


i 

* 
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5.2 Användbara subrutiner 

I BASIC och DOS finns det rutiner som ligger på en absolut adress 
och som kan anropas 1 egna assemblerprogram. 

Det finns även andra rutiner som ej ligger på en absolut adress 
och därför ej bör användas då det inte är säkert att de ligger pa 
samma adress i kommande versioner av BASIC. 

Här följer en kort beskrivning av de rutiner som är absolut- 
adresserade, och i slutet även några rutiner som ej är absolut- 
adresserade, men som ändå kan vara av intresse. 


5.2.1 Subrutiner i BASIC 

Adr(H) Adr(D) Namn _Förklaring 


0000 0 HD.START Initierar datorsystemet (Samma som 

att trycka på RESET-knappen). 

In: — 

Ut: — 

Utnyttjade register: 


0002 2 


0005 5 


0008 8 


CONSI Läser ett tecken från tangentbordet 

(GET). Ekar ej till skärm. 

In IX = 0FF4CH 
Ut A = inläst tecken 
Utnyttjade register: 

AF 

CONREAD Läser en rad från tangentbordet 

(tills RETURN) (INPUT LINE). 

In HL = Buffertpekare 

BC = Max. buffertlängd 
Ut (HL) -> 

Utnyttjade register: 

DE,AF 

BRKPNT Reserverad för assembler-TRACE. 

Utför endast JP 0FF9AH. 

In 

Ut — 

Utnyttjade register: 


000B 11 CONWRITE Skriver en rad på bildskärmen 

(PRINT). Kan innehålla ESC-sekvens. 
In HL = Pekare till text 
BC = Längd 
Ut — 

Utnyttjade register: 
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0010 16 RST.ERR Skriver ut BASIC-felmeddelande. 

Anropas med RST 10H. 

DEFB errornr. 

In — 

Ut — 

Utnyttjade register: 


0012 18 


S0FTN0C0 Samma som ovanstående fast errornr 
fås från register A. 

In A = Felkod 
Ut — 

Utnyttjade register: 


9018 24 SKIPSP Läser förbi blanktecken. 

In HL = Pekare 1 text 
Ut HL = Pekare till l:a tecken 
skiljt från blank 
Utnyttjade register: 

AF 

0018 27 STRCOMP Stränguttrycksscannlng. Används vid 

syntaxkontroll av Instruktioner. 

In DE = Internkodsbuffert 
HL = Textbuffert 
Ut (DE) -> Internkod 

Utnyttjade register: 

AF,HL 

001D 30 TYPCOMP Som ovanstående men B = typ. 

In B = typ 

ex 0 Flyttal 

1 Heltal 

2 Sträng 

DE = Internkodsbuffert 

HL = Textbuffert 

Ut (DE) -> Internkod 

Utnyttjade register: 

AF, HL 

0020 32 EVALU Som RST28 men utan POP. 

Ex. Lägg upp parameter på stacken. 
Används bl a av NAME- och KILL- 
rutlnerna. 



0023 

35 

LEXSCAN 

0028 

40 

RST28 

002B 

43 

CHKLU 

0030 

48 

RST 30 

0033 

51 

SOFTCONT 

0036 

54 

NOTYET 

0038 

56 

RST38 

003B 

59 

HLBOFA 

003F 

63 

XBOFA 

0044 

68 

HLPROG 

0051 

81 

HLBUF1 

005A 

j 

90 

10 

005D 

93 

OPNCMD 



Söker efter text (1 DE).Texten 

skall separeras med en byte - 

OFFH markerar slut pa listan. 

Efter varje funktion (ex PEEK) 
qörs RST 28H varefter aterhoppsadr 
elimineras och stacken justeras. 

Testar om fil är öppen. 

In A = Filnr 

Ut IX = Filens Ix-map 

alt. errormeddelande 32 

RST 30H 

Gör ett JP 0FF9DH. 

Anropar RESUME-rutin. Vid exekve- 
Hng av RESUME görs återhopp till 
anropande rutin. 

Genererar BASIC-error 200. 

RST 38H 

Gör ett JP OFFAOH. 

LD HL,BOFA. 

LD IX,BOFA. 

LD HL,B0FA+20. 

Ladda HL med adr till inmatnings- 
buffert. 

Anropar drivrutin som är knuten 
till IX-map. 

IX ^IX-map för fil (LU-block) 

Öppnar fil. Gjord för kommandomod. 

A = Opentyp Norma1t 0 PEN 

» _ i Normalt PREPARE 

a _ o OPEN Sök först .BAC 

A sedan .BAS 

A _ o PREPARE Default .BAS 

o < a < 128 PREPARE Default .BAC 

A > 127 ISAM OPEN 

IX = Pekare till IX-map. 

HL = Pekare till filnamn. 





0023 

35 

LEXSCAN 

Söker efter text (i DE). Texten 
skall separeras med en byte >= 80H 
OFFH markerar slut på listan. 

0028 

40 

RST28 

Efter varje funktion (ex PEEK) 
görs RST 28H varefter återhoppsadr 
elimineras och stacken justeras. 

002B 

43 

CHKLU 

Testar om fil är öppen. 

In A = Filnr 

Ut IX = Filens 'Ix-map' 

alt. errormeddelande '32' 

0030 

48 

RST30 

RST 30H 

Gör ett JP 0FF9DH. 

0033 

51 

SOFTCONT 

Anropar RESUME-rutin. Vid exekve- 
ring av RESUME görs återhopp till 
anropande rutin. 

0036 

54 

NOTYET 

Genererar BASIC-error 200. 

0038 

56 

RST38 

RST 38 H 

Gör ett JP OFFAOH. 

003B 

59 

HLBOFA 

LD HL,BOFA. 

003F 

63 

XBOFA 

LD IX,BOFA. 

0044 

68 

HLPROG 

LD HL,B0FA+20. 

0051 

81 

HLBUF1 

Ladda HL med adr till inmatnings- 
buffert. 

005A 

90 

IO 

Anropar drivrutin som är knuten 
till IX-map. 

A = rutin 

IX = IX-map för fil (LU-block) 

005D 

93 

OPNCMD 

Öppnar fil. Gjord för kommandomod. 


A = Opentyp 

A = O Normalt OPEN 

A = 1 Normalt PREPARE 

A = 2 OPEN Sök först .BAC 

sedan .BAS 

A = 3 PREPARE Default .BA: 

3 < A < 128 PREPARE Default .BA 
A > 127 ISAM OPEN 

IX = Pekare till IX-map. 

HL = Pekare till filnamn. 



0060 

96 

OPNX 

0063 

99 

UNPFD 

0066 

102 

NMI 

0069 

105 

USEUTLU 

006C 

108 

ALLOZMEM 


Samma som ovan men namnet förut¬ 
sätts vara formaterat. 

Kontroll och formatering av fil¬ 
namn. 

HL = Pekare till oformaterat filnamn. 
DE = Buffert för formaterat filnamn. 
Från rutinen: NAME.EXT = OK. 

Adress för NMI (non-maskable 
interrupt) från BUS. Gör ett JP 
0FF8AH. 

Stänger fil (temporär LU block på 
adr FF63H). 

OBS! Manipulerar stacken så att 
tvångsanrop kommer att göras. 

Allokerar minne från HEAP och DE 
bytes (endast RUN TIME). 

Retur: 

TC=Carry satt=fick ej plats 
HL pekar på minnesarean 
DE=storlek 


Minnet nollställs (var 11-BASIC). 





601E 

24606 

RUN 

Laddar och anropar en ABS-fil 

DE => Formaterat filnamn uan fil punkt 
B = DOSBUFnr * 10H 

C = Selectkod 

6021 

24609 

CLOSE 

Stänger fil 

B = DOSBUFnr * 10H 

6024 

24612 

CHOP 

Tar bort utrymme på fil 

6027 

24615 

PROTE 

Gör direkt RET 

602A 

24618 

POS IT 

Random Access initiering 

DE = Logiskt sektornr 

B = DOSBUFnr * 10H 

602D 

24621 

READ 

Random Access, Läs logisk sektor 

DE = Logiskt sektornr 

B = DOSBUFnr * 10H 

6030 

24624 

WRITE 

Random Access, Skriv logisk sektor 

DE = Logiskt sektornr 

B = DOSBUFnr * 10H 

6033 

24627 

GET 

Läs nästa tecken ur buffert 

In B = DOSBUFnr * 10H 

Ut A = Tecken 

Carry = 1 Slut på block 

6036 

24630 

GETR 

Läs ett tecken med offset C ur 
buffert 

In B = DOSBUFnr * 10H 

C = Offset i buffert 

Ut A = Tecken 

Carry = 1 --> Slut på block 

6039 

24633 

PUT 

Skriv ett tecken sekvensiellt till 
buffert 

In A = Tecken 

B = DOSBUFnr * 10H 

Ut Carry = 1 Slut på block 

603C 

24636 

PUTR 

Skriv ett tecken till buffert med 
offset C 

In A = Tecken 

B = DOSBUFnr * 10H 

C = Offset i buffert 

Ut Carry =1 Slut på block 

C = C +1 

603F 

24639 

BSP 

Sätt offsetposition i buffert till 0 
(3) 

B = DOSBUFnr * 10H 

6042 

24642 

BLKTF 

Flytta ett block med data. 

C = Antal byte 

DE = Block flyttas till (Startadr) 

HL = Block flyttas från (Startadr) 
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5.2.2 

Subrutiner 1 DOS 


Adr(H) 

Adr(D) 

Namn 

Förklaring 

6000 

24576 

DOSINIT 

Initierar DOS 

6003 

24579 

RUNX 

Exekverar ABS-fil 

A = Fysiskt fil nr 

C = Fysiskt drivenr, 255 = alla drivar 

6006 

24582 

LOADX 

Laddning av ABS-fil 

A = Fysiskt fil nr 

C = Fysiskt drivenr, 255 = alla drivar 
Returnerar: 

Carry = 0 —> HL = start adressen 

Carry = 1 --> A = felkod 

6009 

24585 

SELROUT 

Anropar en av fyra rutiner: 

A = Rutinnummer 

1 PREPARE 

2 CLOSE 

3 OPEN 

4 RESIZE 

600C 

24588 

GETNC 

Hämta nästa byte i DOSBUFO. Ökar buf¬ 
fertpekaren. 

600F 

24591 

DR 

Läs fysisk sektor till DOSBUF B/10H 

B = DOSBUFnr * 10H 

DE = Sektornr 

Returnerar: 

Carry = 1 —> Fal se Zero = Drive off 

1 i ne. 

Carry = 0 --> True Zero = Paritetsfel 

6012 

24594 

DW 

Skriv fysisk sektor från DOSBUF B/10H 

B = DOSBUFnr * 10H 

DE = Sektornr 

Returnerar: 

Carry = 1 —> Fal se Zero = Drive off 

1 i ne 

Carry = 0 —> True Zero = Paritetsfel 

6015 

24597 

PREP 

Preparera fil 

DE => Formaterat filnamn utan fil punkt 
Ex. BASICINISYS 

B = DOSBUFnr * 10H 

C = Selectkod 

6018 

24600 

OPEN 

Öppna fil 

DE => Formaterat filnamn utan fil punkt 
B = DOSBUFnr * 10H 

C = Selectkod 

601B 

24603 

LOAD 

Laddar en ABS-fil 

DE => Formaterat filnamn utan fil punkt 
B = DOSBUFnr * 10H 

C = Selectkod 

Returnerar: 

HL = Startadress 



6045 

24645 

TRAP 

Initierar DOS ON ERROR 

In C = Felnummer DE = Hoppadress 
till felhanterare 

6048 

24648 

RENAM 

Byter namn på en öppen fil 

B = DOSBUFnr * 10H 

DE = Adress till filnamn (11 byte) 

604B 

24651 


Otillåten. Ger oändlig loop 

604E 

24654 


Otillåten. Ger oändlig loop 

6051 

24657 


Otillåten. Ger oändlig loop 

6054 

24660 


Otillåten. Ger oändlig loop 

6057 

24663 


Otillåten. Ger oändlig loop 

605A 

24666 


Otillåten. Ger oändlig loop 

605D 

24669 

EXIT 

Stänger alla filer+anropar CMDINT 

6060 

24672 

DCWAI 

Sätt drive, vänta till drive är klar 
Läs error/status 

6063 

24675 

DW.O 

Skriv sektor från DOSBUFO 

DE = Fysiskt sektornr. 

6066 

24678 

DR.O 

Läs sektor till DOSBUFO 


DE = Fysiskt sektornr 


6069 

24681 

DEVDESP 

Pekare till intern enhetslista i 
PROM. 

(UFD DOS/Winchester) 

606B 

24683 

DEVDES 

Pekare till intern enhetslista i RAM 
(UFD DOS/Winchester) 

606D 

24685 

UFDENT 

Pekare till UFD-entry på diskett 
(UFD DOS/Winchester) 

606F 

24687 

DOSVER 

DOS version nummer 
(UFD DOS/Winchester) 

6070 

24688 

TYPE 

DOS typ 

(UFD DOS/Winchester) 

6071 

24689 

DRDWRET 

Pekare till brytmöjlighet för 

1äs-/skrivrutin (DR resp DW) 

(UFD DOS/Winchester) 

6073 

24691 

CSS 

Pekare till clustersize 
(UFD DOS/Winchester) 

6075 

24693 

CHANN 

Pekare till aktuell kortval byte 
(UFD DOS/Winchester) 
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FÖRKLARINGAR TILL BENÄMNINGAR I DOS-LISTA 


DE => area 
DOSBUFnr 


Selectkod 


Register DE pekar på arean "area". 

Kan vara 0,16,32,48,64,... (eller 00H - 70H) 
med steg 10H. 


Logiskt sektornr 0,1,2,... 
Fysiskt sektornr 0,1,2,... 


På DOS ABC 6-1X (ABC830.DD80) 
skall dessa multipliceras med 32. 


Normalt är: 0 
1 


Fysiskt fil nr 


255 = Sök på alla enheter 

Bit 0 - bit 3 Bibiitekssektor 

Bit 4 - bit 7 Offset i bibiiotekssektor 


ÖVRIGT 

Adr(H) Adr(D) Namn 


Förklaring 


7000 28672 OPTINIT Initiering av options-PROM 


7FFD 32765 HRLDIR 


(HL) -> (DE) 

HL = Minne 
BC = Antal bytes 

Flyttning kan ske till och från HR- 
minnet. 




5.3 Länkade listor 


5.3.1 Funktionsllsta 


Fdr att BASIC-tolken skall k-a hUta de ^^era^orde^so™ 
:]r? N ^ M T^^r,rrr a de: U ^ra5e , diverse tadel,er so™ dr 
länkade inbördes. 


I detta avsnitt skall vi behandla 
na och i nästa avsnitt behandlas 


utseendet 

tabellerna 


på funktionstabeller- 
för instruktioner. 


De tabeller som finns för funktioner ar: 

* Informationsbi ock 

* Textlista 

* Hopptabell vid exekvering (RUN-lista) 

* Syntaxtabell 




INFORMATIONSBLOCKET 

Informationsbiocket behövs för att länka flera listor. Detta för 
att möjliggöra en framtida utökning. 

Utseendet på blocket är: 


Adress 

Adress+1 

Adress+2 


Adress+9 


Vi darepeka re(1) 
Vidarepekare(h) 
Offset 

Funktionsantal 
RUN-1ista(l) 
RUN-1ista(h) 
TEXT-1 i sta(1) 
TEXT-1ista(h) 
SYNTAX-1ista(l) 
SYNTAX-lista(h) 


Vidarepekare 

Offset 

Funktionsantal 
RUN-1 i sta 

TEXT-1ista 


Pekar till nästa funktionslistas informations- 
block. Vill man behalla BASICs alla funktioner 
lägger man gamla adressen i dessa byte. Dvs 

POKE adress,PEEK(65407),PEEK(65408) 

Slut på listorna markeras med 0 (noll). 

Anger vilket värde som lagras som internkod 

enligt internkod=separatorbyte- 128 + 0 ffset. 

Antal funktioner som finns i listorna. 

Pekar till en vektor med adresser dit BASICen 
skall hoppa vid exekvering. 


, f ? rs t :a byten i den lista som kallas 
LOOKUP-tabel1 vilken innehåller funktionernas 
namn lagrade som text. 


SYNTAX-1i sta Pekar till en lista med funktionernas syntax 
bit-kodat. 
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TEXTLISTAN (LOOKUP) 


Denna lista innehåller namnen på de reserverade orden. 


1 byte 
x byte 
1 byte 
x byte 


Utseendet är: 

Separatorbyte 

Text 

Separatorbyte 

Text 


1 byte 


ETX-byte 


Separatorbyte Byte som separerar texterna från varandra. 

Innehåller även information om texten. Observe 
ra att den måste vara större än 128 (80 hex), 
dvs bit 7 = 1. 


Text Innehåller namnet på ett reserverat ord. 

ETX-byte Markerar att listan är slut. Är alltid satt 

till 255 (FF hex). - 


RUN-LISTAN 

Anger till vilken adress BASIC skall hoppa då en funktion skall 
exekveras. 

Utseendet är: 

Adress 2 byte Hoppadress funktioni 

Adress+2 2 byte Hoppadress funktion2 

Adress+4 2 byte Hoppadress funktionS 


Hoppadress Adress dit BASICen hoppar vid exekvering av 

funktionen, dvs JP "hoppadress". 

Adressen till hoppadressen beräknas ur: 

2*(Separatorbyte-128)+Adress 



SYNTAXLISTAN 


Anger vilken typ in- resp utparametrarna skall ha. 

Utseendet är: 


x byte 
1 byte 
x byte 
x byte 
1 byte 
x byte 


Separatorbyte 

Utparameter 

Inparameter 

Separatorbyte 

Utparameter 

Inparameter 


Separatorbyte Motsvarar separatorbyten i TEXT-1istan. 

Inparameter Innehåller information om variabeltyp på 

inparametern i bitformat. 


Utparameter Innehai ler informati 


bitformat. 


IN- OCH UTPARAMETERBYTEN 

Bit 76543210 
aaaarxtt 

a a a a 

0000 Normal 

0 0 0 1 

0010. Kanske sista kod 

0 0 11 
0 10 0 
0 10 1 
0 110 

0 111 Variabel namn 

10 0 0 
10 0 1 
10 10 
10 11 
110 0 
110 1 
1110 
1111 


t t 

0 0 
0 1 
1 0 
1 1 

_x 

0 

1 

_r 

0 

1 


on om utdatas variabel typ i 


Flyttal 

Heltal 

Sträng 


Repetera ej koden 
Repetera koden (x ggr) 
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5.3.2 Instruktions!1 sta 

Vi behandlar här bara skillnaderna mot uppläggningen för funktio¬ 
nerna, då utseendet på de bägge listorna i princip är lika. 

Uppläggningen av informationsblocket skiljer sig bara på följande 
punkt: Adresserna 65405 och 65406 (FF7D resp. FF7E hex) är pekare 
till informationsblocket. I BASIC gör du alltså: 

POKE länkadr,PEEK(65405),PEEK(65406) 

POKE 65405,adress,SWAP%(adress) 

där "adress" även nu är adressen till informationsblockets början 
och "länkadr" den pekare som pekar på nästa informationsbi ock i 
1 i stan. 

Syntaxlistan skiljer sig också från den som används vid funktio¬ 
ner. 


SYNTAX-LISTA 

Adress 2 byte Hoppadress 
Adress+2 2 byte Hoppadress 
Adress+4 2 byte Hoppadress 


Hoppadress Adress dit BASIC hoppar för kontroll av 

eventuella parametrar till instruktionen. För 
varje ny instruktion måste även motsvarande 

syntaxkontroll skrivas i assembler. Dock kan 
manga färdiga hjälprutiner anropas i BASIC. Se 
kap 5.2.1. 


Adressen till hoppadressen beräknas ur: 
2*(Separatorbyte-128)+adress 


5.3.3 Utvidgning av BASIC 

Vi skall här visa arbetsgången vid skapandet av egna funktioner 
och instruktioner som tillägg till BASICens. Fördelen med dessa 
är platsbesparing och ökad snabbhet. 


ARBETSGÅNG 

* Skapa rutiner i assembler som behandlar funktionen. 

* Skapa en hopptabell dit BASIC skall hoppa vid exekvering. 

* Skapa en lista som visar funktionens/instruktionens syntax. 

* Lägga in namnen på de reserverade orden i en textlista. 

* Initiera ett informationsbi ock för BASIC. Detta pga att BASIC 
söker efter funktioner enligt en länkad lista-metod. Blocket 
bestar till största delen av pekare till listorna ovan. 

* Länka in informationen så att den blir tillgänglig för BASIC. 
Detta gör man genom att sätta adresserna 65407 och 65408 (FF7F 
resp. FF80 hex) resp adresserna 65405 och 65406 (FF7D resp 
FF7E hex) till början på informationsbiocket för 
funktionen/instruktionen. 

I BASIC skriver man: 

POKE Fl änkadr,PEEK(65407),PEEK(65408) 

POKE Fiblock,Fadr,SWAP%(Fadr) 

POKE Ilänkadr,PEEK(65405),PEEK(65406) 

POKE I i bl ock,Iadr,SWAP%(Iadr) 

där 

Fadr är adressen till informationsbiocket för funktioner. 

Iadr är adressen till informationsblocket för instruktioner. 

Fi bl ock är adressen till informationsblocket för funktioner. 

I i bl ock är adressen till informationsblocket för instruktioner. 

Flänkadr är adressen till de byte som pekar på nästa 
informationsblock för funktioner. 

Ilänkadr är adressen till de byte som pekar på nästa infor¬ 
mationsblock för instruktioner. 
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EXEMPEL 


I nedanstående exempel kommer BASIC att utvidgas med två 
instruktioner och en funktion. 

Instruktionerna är: PROCEDURE 

WAIT 

Funktionen är: GETITEM 


PROCEDURE 

Syntax: PROCEDURE FNfunktionsnamn 

där "FNfunktionsnamn" är namnet på en funktion som finns 
definierad i programmet. 

PROCEDURE används när programmeraren vill att en funktion enbart 
skall utföra satserna mellan DEF FNFunktionsnamn och FNEND. 
PROCEDURE returnerar ej värde. Jmfr Z=FNFunktionsnamn med 
PROCEDURE FNFunktionsnamn. 


WAIT 

Syntax: WAIT heltal 

där "heltal" är antalet sekunder som programmet skall vänta. 

WAIT medför att programmet ej utför några instruktioner det antal 
sekunder som "heltal" anger. 


GETITEM 

Syntax: GETITEM(itemsträng,itemnummer) 

"Itemsträng" är en sträng med följande utseende: 

CVT%n(Antal )+CHRn(Längd)+'Text'+ CHRn(Längd)+'Text'+... 

"Itemnummer" är numret på den del text som skall returneras ur 
"itemsträng". 

GETITEM returnerar en del sträng ur en itemsträng. 

Exempel: 

10000 An=CVT%n(2)+CHRn(3)+'Ett'+CHRn(3)+'Tva 
10010 ;GETITEM(An,l) 

10020 ;GETITEM(An,2) 

Detta ger utskriften: 

Ett ~ 

Två 

OBS! 

Minsta värde för itemnummer är ett (1). 
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Här följer nu programrutinerna som utför denna utökning av BASIC. 

För program som utför själva inlänkningen av de nya Instruktio¬ 
nerna/funktionerna - se programmet EXTBAS 1 bilaga 2. 


EXTBAS ZPROG Utvidgad BASIC 

*********kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 
★ 

★ 


* EXTBAS 

* 

* 820914 

* NANCO Elektronik 

* UPDATED ... 

* SAVED AS EXTBAS.ASM 


—. - . — —- . .v i l/i iv • / k vi i 

*******kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 
* Utvidgning av BASIC med PROCEDURE, WAIT, GETITEM 


* 

* 

* 

* 

* 

* 

k 

k 

★ 

~k 


INPUT: 

OUTPUT: 

GLOBAL: 
INPUT: 


SEC 

TICK 


* 

* 

k 

k 

k 

k 

k 

k 

k 

k 


OUTPUT: — 


LOCAL: 


- Sekunder för systemklocka 

- 100-delssekunder för system¬ 
klocka 

SCANEXPR - Fast rutin för Uttrycksscan-* 
ning * 

* 
* 


TP_INT - Typ = heltal för SCANEXPR * 
TP_STR - Typ = sträng för SCANEXPR * 

TP END - Slut på syntaxkod * 

* IOFFSET - Startkod för nya instruktioner* 

FOFFSET - Startkod för nya funktioner * 
**********kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 


*PAGE 32 


TP INT 

EQU 

01H 

TP STR 

EQU 

02H 

TP_END 

EQU 

020H 

SEC 

EQU 

0FFF4H 

TICK 

EQU 

0FFF5H 

SCANEXPR 

EQU 

001DH 

IOFFSET 

EQU 

ODOH 

FOFFSET 

9 

EQU 

ODOH 

9 

9 

ORG 

08000H 

XI_TAB 

EQU 

* 


DEFW 

0 


DEFB 

IOFFSET 


;Integer 
;Sträng 

;Slut på syntaxkod 

;Adress till sekund i system¬ 
klockan 

;Adress till 100-delar i system¬ 
klockan 

;Fast adr för scanning av 
uttryck 

;Startkod för X-instruktioner 
;Startkod för X-funktioner 


;Länk till nästa instruktions- 
1 i sta 

;Internkodsoffset 
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DEFB 

EXQEND-EXQLST/2 

;Antal et r\ya Instruktioner 


DEFW 

EXQLST 

;Start för JP-tabell 


DEFW 

TXTLST 

;Start för textlistan 

• 

9 

DEFW 

SYNTLST 

;Start för syntaxhopptabel1 

9 

DEFW 

0 

;Länk till nästa funktionslista 


DEFB 

FOFFSET 

jlnternkodsoffset 


DEFB 

FEX_END-FEX_LST/2 

;Antalet nya funk¬ 
tioner 


DEFW 

FEX_LST 

;Start för exekveringshopp- 
tabel1 


DEFW 

FTXT LST 

;Start för textlistan 


DEFW 

FSYN_LST 

;Start för syntaxkontrol1- 

9 



vektor 

FEXLST 

EQU 

* 



DEFW 

E GETIT 

;Adress till GETITEM-exekve- 




rings rutin 

FEX_END 

9 

EQU 

★ 


FTXT_LST 

EQU 

★ 



DEFB 

080H 



DEFM 

'GETITEM' 


9 

9 

DEFB 

OFFH 

;Tabel1slut 

FSYN_LST 

EQU 

* 



DEFB 

080H 

;Kod för GETITEM 


DEFB 

TP STR 

;Uttyp = Sträng 


DEFB 

TP STR 

;Inparameter 1 = Sträng 


DEFB 

TP INT+TP END 

;Inparameter 2 = Heltal 

9 

9 

9 

DEFB 

OFFH 

;Slut på syntaxlista 

9 

EXQLST 

EQU 

* 



DEFW 

E PROC 

;Exekvera PROCEDURE 


DEFW 

EJIAIT 

;Exekvera WAIT x 

EXQEND 

9 

EQU 

★ 


TXTLST 

EQU 

DEFB 

DEFM 

* 

080H 

'PROCEDURE' 


9 

DEFB 

DEFM 

081H 

'WAir 


9 

DEFB 

OFFH 

;Slut på lista över reservera¬ 
de ord 


9 
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SYNTLST EQU * 

DEFW S PROC 
DEFW STWAIT 


S WAIT 

EQU 

★ 

S_PR0C 

EQU 

★ 


LD 

B,1 

9 

JP 

SCANEXPR 

E_PR0C 

EQU 

* 


RST 

020H 

9 

RET 


É_WAIT 

EQU 

* 


RST 

020H 


XOR 

A 


LD 

(TICK),A 


LD 

A,(SEC) 


LD 

C,A 

WAIT 

EQU 

* 


LD 

A,H 


OR 

L 


RET 

Z 

9 

LD 

A, (SEC) 


CP 

C 


JR 

Z,WAIT 


LD 

C,A 


DEC 

HL 

9 

JR 

WAIT 

E_GETIT 

EQU 

* 


POP 

HL 


LD 

IX,0 


ADD 

IX,SP 


PUSH 

DE 


EX 

DE, HL 


CALL 

GETSLEN 


LD 

HL,3 


XOR 

A 


SBC 

HL ,BC 


JR 

NC,BLNK 

» 

CALL 

GETSADR 


LD 

A,(HL) 


INC 

HL 


LD 

H, (HL) 


LD 

L,A 


XOR 

A 


;Scanna heltal suttryck 
;Scanningsrutin 


;Exekvera PROCEDURE 


;Exekvera WAIT x 


;Kontroll mot tidsdelay 


;Hämta inparameter 2 

;Sätt IX till strängens 
parameterblock 

;Spara undan instruktionspeka 
ren 

;Ladda DE med inparameter 2 
;Läs längd 


;Kontroll om sträng är för 
kort (<3 tkn) 

;Returnera tom sträna i så 
fall 

;Läs adress till sträng 

;Hämta först 2 byte (Antal 
i tems) 
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SBC 

HL,DE 


JR 

C,BLNK 


CALL 

GETSADR 


INC 

HL 

• 

9 

INC 

HL 

GETIT_L 

EQU 

* 


DEC 

DE 


LD 

A,E 


OR 

D 


LD 

C,(HL) 


LD 

B,0 


INC 

HL 


JR 

Z,FND ITI 


ADD 

HL,BC 

9 

JR 

GETIT_L 

FND_ITEM 

EQU 

★ 


CALL 

PUTSADR 


CALL 

PUTSLEN 


JR 

9 

STRRET 

BLNK 

9 

EQU 

★ 


LD 

BC ,0 


CALL 

PUTSLEN 

STRRET 

EQU 

* 


POP 

DE 


RST 

028H 

GETSLEN 

EQU 

* 


LD 

C, (IX+4) 


LD 

B, (IX+5) 


RET 


GETSADR 

EQU 

★ 


LD 

L,(IX+2) 


LD 

H, (IX+3) 


RET 


PUTSLEN 

EQU 

* 


LD 

(IX+4),C 


LD 

(IX+5),B 


RET 


PUTSADR 

EQU 

★ 


LD 

(IX+2),L 


LD 

(ix+3) ,y 


RET 



;Kontroll om Itemnr är för 
stort 

;Returnera tom sträng 1 så 
fall 

;Ladda HL med adress till 
sträng 


;Sätt HL adr efter längd 
;Item funnen, avbryt 
; Hämta nästa item 


;Spara nya adressen 
;Spara nya längden 


;Sätt stränglängd till 0 ( 


;Hämta instruktionspekaren 
;Fortsätt BASIC-exekvering 


;Ladda BC med aktuell längd 


;Ladda HL med adr till data¬ 
area 


;Ladda nya stränglängden 


;Ladda nya adr till dataare 
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5.3.4 Enhetslista 


Varje yttre enhet (diskettstation, skrivare, plotter etc) är 
ansluten till BASIC-interpretatorn som en logisk enhet. Enheterna 
är samlade i en enhetslista. Om man själv ansluter kort, tex 
I/O-kort, kan kortet länkas in i enhetslistan. 

Enhetslistans utseende är: 

Adress Vidarepekare (1) (Pekare till nästa enhet i listan) 

Adress+1 Vidarepekare (h) (Pekare till nästa enhet i listan) 

Adress+2 Namn Första bokstaven 

Adress+3 Namn Andra bokstaven 

Adress+4 Namn Tredje bokstaven 

Adress+5 Adress till enhetens drivrutin (1) 

Adress+6 Adress till enhetens drivrutin (h) 

Ett sådant block skall finnas för varje enhet i enhetslistan. 

För att hitta den första enheten i enhetslistan gör man: 

10 Enhetl=PEEK2(65403) 

Enhetl pekar nu till första byten i vidarepekaren för första 
enheten i listan. 

Genom att sätta vidarepekaren till noll (0) så har man indikerat 
att aktuell enhet är den sista i listan. 

Namnen i enhetslistan måste vara exakt tre (3) tecken. Är enhets- 
namnet ej så långt så skall namnet fyllas på med blanka tills 
längden blir tre. 

Inparameter till drivrutinen är register A, som innehåller numret 
på den rutin som skall väljas. 

Lista över anrop till drivrutin 

Reg. A Rutinnamn _ Förklaring ___ 

0 OPEN Öppna en fil på enheten 

1 PREPARE Skapa en fil på enheten 

2 CLOSE Stäng en fil på enheten 

3 INPUT Läs in en rad från enheten (INPUT) 

4 PRINT Skriv ut en rad på enheten (PRINT) 

5 GET Läs in tecken från enheten (GET) 

6 PUT Skriv ut tecken på enheten (PUT) 

7 BL.IN Läs in ett record från enheten 

8 BL.UT Skriv ut ett record på enheten 

9 DELETE Radera en fil på enheten 

10 RENAME Byt namn på en fil på enheten 



DR = Drivrutin för enhet 
EN = Enhetens namn 
JP = Pekare till drivrutin 
LK = Länk till nästa enhet 
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5.3.5 Fillista 


Liksom det för variablerna finns en variabel lista så finns det 
för de öppnade filerna en fillista, som innehåller information om 
varje fil som används. Början på denna lista kan fås genom: 


10 Filstart=PEEK2(65344) 

Listan är uppbyggd som en länkad lista där varje fil har ett 
kontinuerligt område (Fil-map). Vid assemblerprogrammering där o 
filer används skall vid anrop av en DOS-rutin register IX peka pa 
början av fil-mapen. 


FIL-MAP 


IX+0 

W 

Pekare till nästa fil 

1 

2 

B 

Logiskt fil nummer 

3 

B 

Status *1 

4 

W 

Pekare till enhetens plats i enhetslistan 

5 



6 

W 

Position 

7 



8 

W 

Radlängd 

9 



10 

B 

Sista operation 

11 

W 

ISAM-block 

12 



13 

M 

Recordantal i fil 

14 



15 

W 

Recordnummer i buffert 

16 



17 

w 

Random Access recordnummer 

18 



19 

w 

Random Access buffertoffset 

20 

21 


Ledigt (Används lokalt av vissa enheter) 

22 


Ledigt 

23 


Ledigt 

*1 LU 

STATUS 

BYTE 


Bit Namn Förklaring 


7 

6 

5 LUS.FAST 

4 LUS.ERR 

3 LUS.WRDL 

2 LUS.IACT 

1 LUS.PERM 

0 LUS.OPN 


Används för kassetthantering 
Error har inträffat under CLOSE 
Bufferten måste skrivas ut. 
Interaktiv. 

Permanent 
Filen öppen 


98 



EL = Pekare till filens enhet 
tex DRO: 

FE = Ledigt utrymme 
IB = ISAM block 


65345 

65344 



LK = Länk till nästa öppna fil 
NR = Filens logiska filnummer 
OP = Sist utförda operation på 
filen 

PS = Position 

RA = Antal records i filen 
RB = Recordnummer för record i 
buffert 
RL = Radlängd 

RN = Random Access recordnummer 
RO = Buffertoffset 
ST = Status 


3:e öppna filen 


\ 

\ 

\ 

\ 

2 :Y öppna filen 

\ 

\ 

\ 

\ 


1 :a öppna filen 






Fi 11 istans utseende 















5.3.6 Variabel11 sta 


Detta avsnitt handlar om utseendet på variabel 1 i stan. Denna 
används av BASIC-lnterpretatorn tex vid kontroll av att aktuell 
längd för en sträng ej överskrider dimensionerad längd. I listar 
lagras även variablernas värde, namn och typ. 

Listan är uppbyggd som en länkad lista där varje variabel har et 
kontinuerligt område. För att hitta början på listan gör man 

10 Varstart=PEEK2(SYS(12)) 

Här nedan följer utseendet på detta område för varje variabeltyp 


INTEGER 


Skalär 


Länk(l) 

Länk(h) 

Typ 

Namn 

Värde(l) 

Värde(h) 


Vektor / Matris 

Länk(l) 

Länk(h) 

Typ 

Namn 

Storlekd ) 

Storlek(h) 

Värdepekared ) 
Värdepekare(h) 

Antal index 
Elementstorlek 
Min.indexd ) 

Min.index(h) 

Max.index(1) 

Max.index(h) 

Avståndd ) 

Avstånd(h) 

De sex sista byten upprepas 
för varje index. 




AL - Aktuell längd för sträng 
DL = Dimensionerad längd för sträng 
LK = Länk till nästa variabel i 
listan 

NN = Namn på variabeln,mm 
TP = Typ på variabeln, mm 
VE = Variabelns värde 
VP = Pekare till strängens värde 


Variabel 1 istans utseende 
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FLOAT 


Skalär 

Länk(l) 

Länk(h) 

Typ 

Namn 

Fvärde(l) 

Fvärde(2) 

Fvärde(3) 

Fvärde(4) 

Fvärde(5) 

Fvärde(6) 

Fvärde(7) 

Fvärde(8) 

De fyra sista byten 
används bara vid 
DOUBLE. 


STRÄNG 

Skalär 

Länk(l) 
Länk(h) 

Typ 

Namn 

Dim.längd(l) 
Dim-1 ängd(h) 
Textpekared ) 
Textpekare(h) 
Akt.längdd) 
Akt.längd(h) 


TECKENFÖRKLARING 

Länk 
Typ 
Namn 
Värde 
Fvärde 

Storlek 

Värdepekare 


Vektor / Matris 


Länkd) 

Länk C h) 

Typ 

Namn 

Storlekd) 

Storlek(h) 

Värdepekared) 

Värdepekare(h) 

Antal index 
Elementstorlek 
Min.indexd ) 

Min.index(h) 

Max.indexd) 

Max.index(h) 

Avstånd(l) 

Avstånd(h) 

De sex sista byten upprepas för varje 
index. 


Vektor / Matris 


Länk(l) 

Länk(h) 

Typ 

Namn 

Storlek(l) 

Storlek(h) 

Värdepekared ) 

Värdepekare(h) 

Antal index 
Elementstorlek 
Min.indexd ) 

Min.index(h) 

Max.indexd) 

Max.index(h) 

Avståndd ) 

Avstånd(h) 

De sex sista byten upprepas för varje 
index. 


Pekare till nästa variabel i listan 
Anger variabel typ, m.m. *2 

Anger variabel namn *3 

Variabelns värde 

Flyttalets värde (Se kap 3.1.1). 
Fvärde{5) - Fvärde(8) finns ej i SINGLE 
Dataareans storlek 

Pekar till variabelns dataarea *1 
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Antal index 
Elementstorlek 


Min.index 
Max.index 
Avstånd 

Dim.1 ängd 
Textpekare 
Akt.längd 


Antal dimensioner 
Antalet byte variabeln upptar 
2 Heltal 

4 Flyttal (SINGLE) 

8 Flyttal (DOUBLE) 

6 Sträng 

Minsta index för aktuell dimension 
Högsta index för aktuell dimension 
Avstånd mellan dimensioner. Beräknas ur 
Elementstorlek*(Max.index-Min.index) 
Dimensionerad längd 
Pekare till början av strängens värde 
Aktuell längd på strängen 


*1 VARIABELNS DATAAREA 


För strängar är dataareans utseende: 

Dim.längdfl) 

Dim.längd(h) 

TextpekareO ) 

Textpekare(h) 

Akt.1ängd(l) 

Akt.längd(h) 


Dessa sex byte upprepas för varje index. För heltal och flyttal 
(med DIM e A(l!l!l) e ) n Van ’ ab1ernaS värden ‘ Värdena lj 99er så här: 

Adress A(0,0,0) 

Adress+2 A(0,0,1) 

Adress+4 AfO.1,0) 

A(0,1,1) 

A(1,0,0) 

A(1,0,1) 

A(1,1,0) 

A(l,l,l) 


*2 UTSEENDE PÅ TYPBYTEN 

Vid korta variabelnamn innehåller denna byte information om 
variabel typ och namnsuffix enligt bitkartan nedan. 

bit: 76543210 

s s s s t t t 


där s s s s 
t t t 

t t t 


står för suffix. 
står för typ. 

Betydelse 


Exempel 


0 

0 

0 

Flyttal 

A. 

0 

0 

1 

Hel tal 

A% 

0 

1 

0 

Sträng 

An 

0 

1 

1 

0 

1 

0 

Indexerat flyttal 

A. ( 

1 

0 

1 

Indexerat heltal 

A%( 

1 

1 

1 

1 

0 

1 

Indexerad sträng 

Aa( 
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s s s s 


Suffix 


Exempel 


0 

0 

0 

0 

0 

0 

0 

0 

1 

1 

1 

1 

1 

1 

1 

1 


0 0 0 0 A0 

0 0 11 Al 

0 10 2 A2 

0 113 A3 

1 0 0 4 A4 

10 15 A5 

110 6 A6 

1117 A7 

0 0 0 8 A8 

0 0 19 A9 

0 1 0 
0 1 1 
1 0 0 
1 0 1 
1 1 0 


111 Suffix saknas A 


Vid långa variabelnamn innehåller typbyten information om 
variabel typ samt en offset till namnet. 

bit: 76543210 

-fTTTTt t~t 

där f f f f f är den låga delen i variabel offset för namnet, 
t t t är variabel typen. Se ovan. 


*3 UTSEENDE PÅ NAMNBYTEN 

Denna byte innehåller ett heltal som representerar identifiera¬ 
rens bokstav. 

Heltal Namn 

-1-Ä 

2 B 

3 C 


• • 

29 

32 långt variabel namn! 


De ovan beskrivna byten är vid långa variabel namn en offset för 
variabel namnet i förhållande^till början pa listan över langa 
variabel namn. Denna offset fås ur: 

(Namnbyten-32)*32+Suffixdel en 

där suffixdelen är fem bitar. 



UTSEENDE PÅ LÅNGA VARIABELLISTAN 


Adress Null 

Adress+1 Null 
Null 
Null 
N 
A 
M 
N 
1 

sep-byte 

N 

A 

M 

N 

2 

sep-byte 


Hit pekar värdet av EOFA + neq. 
offset 


N 

A 

M 

N 


ETX-byte 
Neg. offset (1) 
Neg. offset (h) 


Hit pekar värdet av EOFA 


Null 

NAMN 

sep-byte 


ETX-byte 
Neg. offset 


Dessa byte (4 st) är under exekvering 
normalt CHRh(O). 

Namnet på det långa variabel namnet 
(här: NAMNI, NAMN2, NAMN) 

Separerar namnen och anger att fler föl¬ 
jer i listan. SKALL vara satt till 254 
(FE hex). q ~ 

Anger slut på långa variabel listan. 

SKALL vara satt till 255 (FF hex). 

Ar en negativ offset till listans början. 


ARBETSGÅNG FÖR ATT HITTA EN VARIABEL 


* Ta fram variabel offset ur namn- och typbyten. 

* Hämta värdet av EOFA (refereras som EOFA). 

* Hämta den negativa offseten genom 
Negativ offset = PEEK2(E0FA-1) 

* Placera en adress som pekar till början på listan men med 
null-byten förbilästa genom EOFA + negativ offset + 4. 

* Addera variabel offseten till ovanstående värde. 

* Den byte som adressen nu pekar på är 1:a bokstaven i namnet. 
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Exempel: 


10000 Varn='TEST' 

10010 Namnbyte=PEEK(VAR00T(Vam) -1) 

10020 Typbyte=PEEK(VAR00T(Varn)-2) 

10030 Typoffset=(Typbyte AND 248)/8 
10040 Varoffset=(Namnbyte-32)*32+Typoffset 
10050 Eofa=PEEK2(65288) 

10060 Negoffset=PEEK2(Eofa-1) 

10070 Liststart=Eofa+Negoffset+4 
10080 Varpos=Liststart+Varoffset 
10090 PRINT CHRn(PEEK(Varpos)) 

10100 PRINT CHRn(PEEK(Varpos+1)) 

10110 PRINT CHRn(PEEK(Varpos+2)) 

Körning av programmet ger utskriften: 

V 

a 

r 

ABC800 
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5.4 TRACE och debugger 
5.4.1 Felsökning 

Felsökning används vid uttestning av program för att hitta 

loron a fe1 * Dessa möjligheter har förbättrats på ABC800 gentemot 
ABC80. 

Tillgängligt är 

* TRACE/NO TRACE 

* Single-step 

* Användardefinierade felsökningsrutiner (se avsnitt 5.4.2) 


TRACE/NO TRACE 


TRACE fungerar som på ABC80 genom att skriva ut radnummer som 
exekveras under körningen. Observara felet på den tidiga version¬ 
en av BASIC II där radnummer större än 32767 skrivs ut neqativa 
(heltal sutskrift). 

Skillnaden mot ABC80 BASIC är den att man kan styra utskriften 
till vilken logisk enhet som helst och inte bara till bildskärmen 
(CON:). Vanligtvis styrs utskriften till printern. Nyttan av 
detta är^att vid TRACE av lite större program behöver inga rad¬ 
nummer ga förlorade eftersom dessa inte "kan försvinna ur bild¬ 
skärmen" . 

NO TRACE stänger av TRACE. 


Single-step 


Om man trycker CTRL-C en (1) gang, avbryts programmet inte utan 
nan befinner sig i 'single-step" mode. Om man nu trycker CTRL-S 
utförs nästa instruktion och därefter väntar programmet på ett 
nytt CTRL-S eller en tangentnedtryckning. En tangentnedtryckning 
i stället för CTRL-S innebär att programmet körs som vanligt. 

Vill man avbryta programmet skall man trycka CTRL-C två (2) qånq 
er. Men även här gar det att fortsätta körningen av proqrammet. 
Detta kan göras pa två sätt: 

CON Fortsätter programmet där det stoppades. 

GOTO nr Fortsätter programmet på rad "nr". 


5.4.2 Användardefinierade felsökningsrutiner 

I stället för att alltid vara hänvisad till att använda BASICens 
TRACE kan man nu skriva egna TRACE-rutiner i assembler. Att länka 
dessa till BASIC är inte svart. Det går till så att man lägger 
adressen till sin assemblerrutin på adresserna 65431-65432. 

OBS! 

På adressen 65430 skall assemblerinstruktionen JP (195) ligga. Är 
denna byte ej 195 kommer rutinen aldrig att utföras. 
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Här följer nu en funktion med tillhörande assemblerrutin som på 
rad 23 skriver ut aktuellt radnummer följt av adressen på vilke 
stacken finns. Därefter följer värdet av HEAP. Detta är 
intressant eftersom skillnaden mellan stacken och HEAP anger hu 
mycket ledigt minne det finns. 

10000 DEF FNPlats 
10010 ! 

10020 ! Spara undan gamla pekaren till TRACE-rutin 

10030 01dtrace=PEEK2(65431) 

10040 ! 

10050 ! Här följer assemblerrutinen i maskinkod 

10060 POKE 65041,229,213,197,245,253,110,82,253,102,83 

10070 POKE 65051,34,192,254,1,6,0,33,203,254,205 

10080 POKE 65061,134,254,14,6,33,215,254,205,134,254 

10090 POKE 65071,14,6,33,226,254,205,134,254,253,110 

10100 POKE 65081,69,253,102,70,17,215,254,205,146,254 

10110 POKE 65091,253,110,10,253,102,11,17,226,254,205 

10120 POKE 65101,146,254,253,110,58,253,102,59,126,254 

10130 POKE 65111,136,40,18,43,86,43,94,43,43,62 

10140 POKE 65121,135,190,32,19,33,203,254,235,205,146 

10150 POKE 65131,254,33,194,254,1,38,0,205,11,0 

10160 POKE 65141,205,2,0,42,192,254,253,117,82,253 

10170 POKE 65151,116,83,241,193,209,225,201,213,229,54 

10180 POKE 65161,32,35,235,225,11,237,176,209,201,175 

10190 POKE 65171,1,240,216,205,173,254,1,24,252,205 

10200 POKE 65181,173,254,1,156,255,205,173,254,14,246 

10210 POKE 65191,205,173,254,125,24,12,213,30,255,28 

10220 POKE 65201,9,56,252,237,66,179,209,200,246,48 

10230 POKE 65211,18,19,62,48,201 

10240 POKE 65218,27,61,55,32,76,73,78,69,32,32 

10250 POKE 65228,32,32,32,32,32,83,84,65,67,75 

10260 POKE 65238,32,32,32,32,32,32,32,72,69,65 

10270 POKE 65248,80,32,32,32,32,32,32,32 

10280 ! 

10290 ! Inlänkning av TRACE-rutin 

10300 POKE 65431,65041,SWAP%(65041) 

10310 RETURN 0 
10320 FNEND 

För att återställa det förra värdet för pekaren till TRACE- 
rutiner gör man i slutet av programmet: 

POKE 65431,01dtrace,SWAP%(01dtrace) 
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Assemblerrutinen 1 källkod. 


DEBUG1 


OUTSTR 

INCHAR 

DEBUG1 


ZPROG Skriver ut HEAP, SP för varje BASIC rad 

*****************************************^^^^^^^^ 
★ * ' . 

* RUTINNAMN "DEBUG1" * 

* 

* 820827 * 

* NANCO Elektronik * 

* SAVED AS DEBUG1.ASM * 

*********************************************^ 5Hr ^*^^^ 

* För varje BASIC-rad visas värdet av stackpekaren * 

* o 0 * 1 pekaren till första lediga byte i minnet (HEAP) * 

* INPUT: — * 

* 

* OUTPUT: — I 


* 

* 

GLOBAL: 

INPUT: 

(IY+52H) 

- LSH 

* 


(IY+53H) 

- MSH 

* 


(IY+OAH) 

- LSH 

* 


(IY+OBH) 

- MSH 

* 


(IY+3AH) 

- LSH 

* 


(IY+3BH) 

- MSH 

★ 


(IY+45H) 

- LSH 

* 


(IY+46H) 

- MSH 

* 

OUTPUT: 

— 



★ 

Akt cursorposition * 
Akt cursorposition * 
Pntr till 1:a lediga byte * 
Pntr till 1:a lediga byte * 
Instruktionspekare * 
Instruktionspekare * 
Undanlagrad stackpekare * 
Undanlagrad stackpekare * 


★ 


★ 


* LOCAL: (CUR) - Gamla värdet på cursor * 

PRINT - Utskriftsbuffert * 

INCHAR - Läser ett tecken på CON: * 

OUTSTR - Skriver ut en sträng på CON: * 

********************************************************** 


*PAGE 

55 


ORG 

0FE11H 

;Rutinen läggs i POKE-arean 

Équ 

OOOBH 

;Skriver ut en sträng 
;Läser ett tecken fran CON: 

EQU 

0002H 

Équ 

★ 


PUSH 

HL 

;Lagra undan registerinnehållen 
;OBS!!1 Detta maste göras annars 

PUSH 

DE 

PUSH 

BC 

;kommer BASIC att gå fel 

PUSH 

AF 

LD 

L,(IY+52H) 

;Aktuell kolumn och 

LD 

H,(IY+53H) 

;aktuell rad 

LD 

(CUR),HL 

;lagras undan 

LD 

BC.0006H 

;Längd på radnummerfältet 

LD 

HL,LINE 

;och dess adress 

CALL 

SPACES 

;Fy11 er en area med blanka 

LD 

C,06H 

;Längd på stackfältet 

LD 

HL.STACKPR 

;och dess adress 

CALL 

SPACES 


LD 

C,06H 

;längd på HEAP-fältet 

LD 

HL.HEAPPR 

;och dess adress 

CALL 

SPACES 
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PRINTOUT 


NOPRINT 


SPACES 


BINASC 


LD 

L,(IY+45H) 

;Hämta värdet på SP använd av B 

LD 

H,(IY+46H) 


LD 

DE,STACKPR 

;Pekare var värdet skall läggas 

CALL 

BINASC 

-.Konverterar bi närtal till strä 

LD 

L,(IY+OAH) 

;Hämta värdet på HEAP 

LD 

H,(IY+OBH) 


LD 

DE.HEAPPR 

;Pekare var värdet skall läggas 

CALL 

BINASC 

;Ännu en konvertering 

LD 

L,(IY+3AH) 

;Hämta instuktionspekare från B, 

LD 

H,(IY+3BH) 

;Hämta byten den pekar på 

LD 

A,(HL) 

CP 

88H 

;88H <=> internkod för 

JR 

Z,PRINTOUT 

;I så fall behövs inget nytt ra< 

DEC 

HL 


LD 

D,(HL) 

;Hämta höga delen av radnr 

DEC 

HL 

;Hämta låga delen av radnr 

LD 

E, (HL) 

DEC 

HL 


DEC 

HL 

;Läs förbi satslängd 

LD 

A,87H 

;87H <=> internkod för ny sats 

CP 

(HL) 

;Jämför med aktuell byte 

JR 

NZ,NOPRINT 

;0m ej ny sats behövs ej nytt r 

LD 

HL.LINE 

;annars hämta pekare till radnr 

EX 

DE, HL 

;Konvertera vårt radnr till str 

CALL 

BINASC 

EQU 

★ 


LD 

HL,PRINT 

;Adress till utskriftsfältet 

LD 

BC,SLUT-PRINT 

;Längden på detta 

CALL 

OUTSTR 

;Skriv ut vår rad på rad 23 

CALL 

INCHAR 

;Anropa läs tecken rutinen (GET 

EQU 

* 


LD 

HL,(CUR) 

;Hämta cursor vid inträde i rut 

LD 

(IY+52H),L 

;och lagra den som aktuell curs 

LD 

(IY+53H),H 

;Återlagra registerinnehål1 en 

POP 

AF 

POP 

BC 


POP 

DE 


POP 

RET 

HL 


EQU 

* 


PUSH 

DE 

;Spara undan DE 

PUSH 

HL 

;Adress att lägga blank i 

LD 

(HL),' ' 

;Ladda den med en blank 

INC 

HL 

;Öka adressen 

EX 

DE,HL 

;Adress att läsa från vid LDIR 

POP 

HL 

DEC 

BC 

;En blank är redan lagrad 

LDIR 


;Fyll area med blanka 

POP 

RET 

DE 

;Hämta tillbaka DE 

EQU 

* 


XOR 

A 

;Initiera för ev inledande noll 

LD 

BC ,0D8F0H 

;Komplement till 10 000 

CALL 

CONV 

;Ger ASCII för 10 OOO-talssiffr 
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LD 

BC,0FC18H 


CALL 

CONV 


LD 

BC.0FF9CH 


CALL 

CONV 


LD 

C,0F6H 


CALL 

CONV 


LD 

A,L 


JR 

ASCII 

CONV 

EQU 

* 


PUSH 

DE 


LD 

E,0FFH 

N0_MINUS 

EQU * 

r 


INC 

E 


ADD 

HL.BC 


JR 

C,NO MINUS 


SBC 

HL.BC 


OR 

E 


POP 

DE 


RET 

Z 

ASCII 

EQU 

* 


OR 

30 H 


LD 

(DE),A 


INC 

DE 


LD 

RET 

A.30H 

CUR 

DEFS 

02H 

PRINT 

DEFB 

1BH 


DEFB 

_** 


DEFB 

17H+20H 


DEFB 

00H+20H 


DEFM 

'LINE ' 

LINE 

DEFM 



DEFM 

'STACK ' 

STACKPR 

DEFM 



DEFM 

'HEAP ' 

HEAPPR 

DEFM 


SLUT 

EQU 

k 


END DEBUG1 


;Komplement till 1 000 

;Ger ASCII för 1 000-talssiffra 

jKomplement till 100 

;Ger ASCII för 100-tal ssiffra 

jKomplement för 10 

;Ger ASCII för 10-talssiffra 

jOmvandla ental ssiffran 

; ti11 ASCII 


;Initiera sifferräknaren 


,ukci sirrerraKnaren 
;Addera till komplement till värde 
;0m ej minus fortsätt loop 

jAddering gjordes 1 ggr för mycket 
jKontrol1 om inledande nollor 


jForma ASCII-kod för siffra 
jsom lagras i textbuffert 
jJustera pntrs 

5Inga fler inledande 0 möjliga 


;Kod för cursorstyrning 
;Kod för cursorstyring 
;Radnr+32 

; Kolumnposition+32 
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Nedanstående exempel visar värdet av en sträng vars VAROOT skickas 
med som parameter till BASIC-funktionen. Pa rad 23 visas namnet pa 
strängen och den del av värdet som får plats på en 80-teckensrad. 
Ex. A9n=ABC800. 

Observera att rutinen inte skriver ut namnet vid långa variabel namn 
utan i stället skriver ?n. 


10000 DEF FNStringtrace(Variabel) 

10010 ! 

10020 ! Lagra undan gamla TRACE-rutinpekaren 

10030 01dtrace=PEEK2(65431) 

10040 POKE 64256,229,213,245,253,110,54,253,102,55,237 

10050 POKE 64266,91,135,251,167,237,82,194,131,251,197 

10060 POKE 64276,253,110,82,253,102,83,34,137,251,33 

10070 POKE 64286,143,251,17,144,251,1,78,0,54,32 

10080 POKE 64296,237,176,237,91,135,251,33,143,251,213 

10090 POKE 64306,27,26,254,32,56,2,62,255,198,64 

10100 POKE 64316,119,35,254,63,40,18,27,26,230,120 

10110 POKE 64326,203,63,203,63,203,63,254,15,40,4 

10120 POKE 64336,198,48,119,35,54,36,35,54,61,35 

10130 POKE 64346,235,225,35,35,78,35,70,197,35,78 

10140 POKE 64356,6,0,225,120,177,40,2,237,176,33 

10150 POKE 64366,139,251,1,83,0,205,11,0,205,2 

10160 POKE 64376,0,42,137,251,253,117,82,253,116,83 

10170 POKE 64386,193,241,209,225,201,0,0,0,0,27 

10180 POKE 64396,61,55,32 


10190 

10200 

10210 

10220 

10230 


Placera den sökta variabelns VAROOT i de byte 
som är avsedda för kommunikation mellan 
BASIC-funktionen och ASSEMBLER-rutinen 
POKE 64391,Variabel,SWAP%(Variabel) 


10240 

10250 

10260 


! Länka in TRACE-rutinen 
POKE 65431,64256,SWAP%(64256) 


10270 RETURM 0 


10280 FNEND 


För att återställa det förra värdet för pekaren till TRACE-rutinen 
gör man i slutet av programmet; POKE 65431,01dtrace,SWAP%(01dtrace 

Assemblerrutinen i källkod följer på nästa sida. 
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DEBUG2 


OUTSTR 

IMCHAR 

DEBUG2 




ZPROG Trace på en strängvariabel 

**********************************************^^^^ 

★ 


RUTINNAMN "DEBUG2" 


820827 

NANCO Elektronik 

■ SAVED AS DEBUG2.ASM * 

**************************************,,r******************* 

* "Trace" av en strängvariabel. Långa variabelnamn * 
skrivs ut som: ?n * 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


INPUT: 

OUTPUT: 

GLOBAL: 

INPUT: 

OUTPUT: 
LOCAL : 


(IY+36H) - LSH Senast ändrade variabel 
(IY+37H) - MSH Senast ändrade variabel 
(IY+52H) - Aktuell kolumn 
(IY+53H) - Aktuel1 rad 


VARPRINT 

INCHAR 

OUTSTR 

(CUR) 

(VAROOT) 


- Utskriftsarea 

- Rutin som läser in ett tecken 

- Rutin som skriver ut en sträng 

- Undansparat värde på cursor 

- Plats för tracad variabel 


ivakuuu - Plats för tracad variabel * 

*******************************************^^^^^ 


★ 

★ 

★ 

★ 

★ 

* 

★ 

★ 

★ 

★ 

★ 

★ 

* 

★ 

rk 

* 

★ 


*PAGE 55 

ORG 

0FB00H 

EQU 

000BH 

EQU 

0002H 

EQU 

: k 

PUSH 

HL 

PUSH 

DE 

PUSH 

AF 

LD 

L,(IY+36H) 

LD 

H,(IY+37H) 

LD 

DE,(VAROOT) 

AND 

A 

SBC 

HL,DE 

JP 

NZ.VARNEQ 

PUSH 

BC 

LD 

L,(IY+52H) 

LD 

H,(IY+53H) 

LD 

(CUR),HL 

LD 

HL,VARPRT 

LD 

DE,VARPRT+1 

LD 

BC,4EH 

LD 

(HL),' ' 

LDIR 

LD 

DE,(VAROOT) 

LD 

HL,VARPRT 

PUSH 

DE 

DEC 

DE 


;Läggs i D0SBUF6 

;Utskriftsrutin på CON: 
;Inläsningsrutin på CON: 


;Spara undan registerinnehållen 
;OBS!!! Maste göras anners kommer 
;BASIC att gå fel 
;Hämta senast ändrade variabel 

;Variabel som skall "tracas" 

;Nollställ carry 

;Är värdet av TRCVAR-VAROOT o 0 
;sa är det ej sökt variabel 

;Akt. värde på kolumn och 

;akt. värde för rad 

;skal 1 sparas undan 

;Area som skall fyllas med blanka 

;För följande LDIR !! 

;Antalet blanka 

;Fyll första byten med en blank 
;Fyll resten av arean 
;Hämta VAROOT till variabeln 
;Pekare till utskriftsarean 
;Spara undan VAROOT 
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SHORTVAR 


NOSUF 


PRINTOUT 


VARNEQ 


LD 

A,(DE) 

; Hämta namnbyten till variabeln 

CP 

20H 

;Test om långt variabel namn 

JR 

C,SHORTVAR 


LD 

A.OFFH 

;i så fall förbered för ?n 

EQU 

* 


ADD 

A,40H 

;Ta fram ASCII-representationen 

LD 

(HL) ,A 

;och spara den i utskriftsarean 

INC 

HL 

-.Uppdatera pekaren 

CP 

'?' 

;Langa variabel namn refereras so 

JR 

Z,NOSUF 

;och har ej något suffix 

DEC 

DE 


LD 

A,(DE) 

;Läs in typbyten för variabeln 

AND 

78H 

;Maska ut suffixdelen 

SRL 

A 

;Skifta ned dessa bitarna till d 

SRL 

A 

;minst signifikanta bitarna 

SRL 

A 

CP 

OFH 

-.Kontrollera om suffix finns 

JR 

Z,NOSUF 

;annars hoppa 

ADD 

A,30H 

;Ta fram ASCII-representationen 

LD 

(HL),A 

;och lagra 

INC 

HL 

;Uppdatera pekaren 

EQU 

* 


LD 

(HL) ,'a' 

;Lagra 'a' 

INC 

HL 


LD 

(HL),'=' 

;och ett '=' 

INC 

HL 


EX 

DE,HL 


POP 

HL 

; Hämta VAROOT 

INC 

HL 


INC 

HL 

;Läs förbi dimensionerad längd 

LD 

C,(HL) 

;Hämta låga delen av pekaren til 

INC 

HL 

;värdet av strängen 

LD 

B,(HL) 

;Hämta höga delen av pekaren til 

PUSH 

BC 

;värdet av strängen 

INC 

HL 


LD 

C,(HL) 

;Hämta låga delen av stränglänge 

LD 

B,OOH 

;Längd > 255 => Trunkering 

POP 

HL 


LD 

A,B 

;Om BC = 0 så är 

OR 

C 

;strängen = 

JR 

Z,PRINTOUT 

;I så fall hoppa till utskriften 

LDIR 


;annars lagra värdet i utskrifts 

EQU 

★ 


LD 

HL,VARPRINT 

;Pekare till utskriftsarea 

LD 

BCjSLUT-VARPRINT 

;Längd på texten 

CALL 

OUTSTR 

;Anrop av utskriftsrutinen 

CALL 

INCHAR 

;Anrop av läs tecken rutinen (GE 

LD 

HL,(CUR) 

;Hämta cursor vid rutinens start 

LD 

(IY+52H),L 

;och lägg i kolumnpos. samt 

LD 

(IY+53H),H 

;radpos. 

POP 

BC 

;Återlagra registerinnehållen 

EQU 

* 


POP 

AF 


POP 

DE 


POP 

RET 

HL 
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VAROOT DEFW OOOOH ;Undan!agrlngsplats för VAROOT 

CUR DEFW OOOOH ;Plats för cursor 

VARPRINT DEFB 1BH ;Kod för cursorstyrning 

DEFB '=' ;Kod för cursorstyrning 

DEFB 17H+20H ;Rad+32 

» DEFB 00H+20H ;Kolumn+32 

VARPRT DEFS 4FH ;Egentlig utskriftsarea 

SLUT EQU * 

END DEBUG2 

Observera att man alltid måste spara undan registerinnehållen vid 
inträdet i TRACE-rutinen och återlagra dessa vid utträdet ur rutinen. 
I annat fall kommer BASIC att "gå bort sig". 

Om man inte vill använda den egna TRACE-rutinen skall man återställa 
orginalvärdet med: 

POKE 65431,187,44 

Observera att den användardefinierade TRACE-rutinen kommer att 
användas vid TRACE tills man gör RESET eller ställer tillbaka 
adressen enligt ovan. Observera också att TRACE-rutinen kommer att 
vara inaktiv tills kommandot TRACE utförs. 

Nedan följer en sammanställning på användbara adresser vid TRACE. 
65431-32 Adress till användardefinierad TRACE-rutin. 

65334-35 Pekare till sist ändrade variabel (VAROOT). 

65332 Anger portnummer för senaste OUT-instruktion. 

65338-39 Instruktionspekaren för BASIC. 

65349-50 Värdet på "run-time" stackpekaren. 

65290-91 HEAP. 

Vid felsökning av assembler kan följande adresser vara intressanta: 

65419-20 Vid ett NMI-interrugt (styrs från ABC800 bussen), hämtas 
hoppadressen härifrån. Genom att ändra dessa byte kan man 
fa en egen NMI-hantering. Men kom ihåg att return görs med 
RETN (Return from Non-maskable interrupt). 

65435-36 RST 08H hämtar sin hoppadress härifrån. 

65438-39 RST 30H hämtar sin hoppadress härifrån. 

65441-42 RST 38H hämtar sin hoppadress härifrån. 

Vid dessa adresser är det återigen viktigt att man inte ändrar byten 
före adressen eftersom assemblerinstruktionen JP (195) ligger där. 
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5.4.3 TRACE vid ASSEMBLER 

Vid debugglng av assembler kan följande adresser vara Intressan¬ 
ta: 

65419-20 Vid ett NMI-lnterrupt hämtas hoppadressen härifrån. 

Genom att ändra dessa byte kan man få en egen NMI- 
hanterlng. Men kom ihåg att återhopp görs med RETN 
(Return from Nonmaskable Interrupt). 

65435-36 RST 08H hämtar sin hoppadress härifrån 


RST 08H skall ej användas om man vill kunna "debugga" 
sitt program med programmet TRACE (som finns pa 
Assembler 800-disketten) eftersom detta program använ¬ 
der RST 08H. 

Vill man använda både programmet TRACE och en o egen 
TRACE-rutin, kan man använda någon av nedanstående 
adresser. 

65438-39 RST 30H hämtar sin hoppadress härifrån. 

65441-42 RST 38H hämtar sin hoppadress härifrån. 


Vid ovanstående adresser är det viktigt att man inte ändrar byten 
före adressen eftersom assemblerinstruktionen JP (195) ligger 
där. 
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6. ASSEMBLERPROGRAMMERING 


NÄR BEHÖVER MAN ASSEMBLERPROGRAM? 

* Då BASIC-tolken är för långsam! 

Exempel: 

Vid kommunikation med yttre enheter (printer etc) eller vid 
stränghantering, som kan hanteras mycket smidigt i assembler. 

* För att få ned programstorleken! 

Oftast är BASIC mycket snål med att ta upp plats, men vid 
exempelvis maskinorienterade rutiner som kommunikation, 
flyttning av data, minneshantering etc, tar assembler mindre 
plats. - 

* När BASIC ej kan användas! 

Exempel: 

För kontroll och hantering av interrupt-logiken. 


HUR SKALL MAN ANROPA ASSEMBLERPROGRAMMET? 


* BASICens eget CALL Z=CALL(Adr,Data) 

* Definition av programmet OPEN 'PGM:' AS FILE 1 

som en logisk enhet PRINT #l,Data 

INPUT #1,Data 
CLOSE 1 


* Ny BASIC-instruktion Z=D0ASM 
(Ej så vanligt) 


HUR SKALL MAN ÖVERFÖRA DATA? 


För att överföra data mellan BASIC och assembler kan man låta 
data ha en fast plats i minnet, som är åtkomlig med PEEK och 
POKE. Eller så låter man data ligga i en variabel. Fördelen med 
det senare sättet är att programmet blir mer flexibelt då inga 
fasta adresser finns. 

Da bara ett värde skall ges till assemblerrutinen kan man använda 
BASICens CALL genom att ge värdet i andra argumentet på CALL- 
satsen. Värdet hamnar då i DE-registret. 

Om bara ett värde skall lämnas som utdata till BASIC-programmet 
kan man också använda BASICens CALL. Värdet, som skall returne- 
ras, placeras i HL-registret, som då görs tillgängligt i BASIC. 

Exempel: 

10 Z=CALL(24678,10) 

Värdet 10 kommer att placeras i DE och variabeln Z kommer att få 
värdet som finns i HL vid uthoppet från assemblerrutinen. 
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Registerlnnehållen måste återställas vid återhopp till BASICen 
(till de värden de hade då assembl errutinen anropades). 

Register I och R får EJ^ förändras 1 assemblerrutlnen. 

Ett sätt att komma över problemet med att bara ha ett argument c 
att lägga parametrarna, som man vill att assemblerrutinen skall 
ha tillgång till, i en sträng eller i en heltalsvektor samt 
anropa rutinen med variabelns VARPTR. 

Exempel: Anrop med sträng 

10000 DEF FNStrasm 

10010 Datn=CVT%n(Datal)+CVT%n(Data2)+CVT%n(Data3) 

10020 RETURN CALL(Adress,VARPTR(Data)) 

10030 FNEND 


Exempel: Anrop med heltalsvektor 

10000 DEF FNIntasm 
10010 Dat(0)=Datal 
10020 Dat(l)=Data2 
10030 Dat(2)=Data3 

10040 RETURN CALL(Adress,VARPTR(Dat(0))) 
10050 FNEND 


Vid inläggning av assemblerrutinen är det enkelt och bekvämt att 
lägga assemblerkoderna i en sträng mha CHRn-funktionen, dvs: 

Assn=CHRn(kod,kod,...,kod) 

Startadressen till assemblerrutinen kan då fås med VARPTR. 


Exempel: 

10000 DEF FNAsm LOCAL Asmn=8 

10010 Asmn=CHRn(235,1,13,0,205,11,0,201) 

10020 Datn='"Testprogram"' 

10030 RETURN CALL(VARPTR(Asmn),VARPTR(Data)) 

10040 FNEND 

Denna funktion skriver ut texten "Testprogram" på skärmen. 
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GENERELL PROGRAMSTRUKTUR 


Ett assemblerprogram består av: 

1 Huvud En kommentarsruta med uppgifter om programnamn, 

datum, upphovsmakare och fakta om programmet 
(indata, utdata, mm). 

2 Parameterfält Definitioner av parametrar som används i 

programmet. 

3 Konstanter Angivande av konstanter och deras värde. 

4 Macrodefinitioner Definition av macrokroppar. 

5 Program Ett program består av ett huvudprogram och 

en eller flera subrutiner. 

6 Dataarea Area med texter, fält, övriga data, mm. 

7 END 


MACRO 

Macro är en sekvens^ssemblerinstruktioner (macrokropp), som inte 
assembleras då de påträffas i texten utan assembleras vid varje till¬ 
fälle da macron anropas. Instruktionerna koraner då att kopieras till 
det läge där anropet gjordes. Detta går till på följande sätt i 
assemblatorn: 

Vid varje macroanrop letas motsvarande macrokropp upp, varefter 
assembleringen fortsätter i macrokroppen tills dess pseudo- 
instruktionen ENDM (avslutar macrokropp) hittas. Assembleringen fort¬ 
sätter då med instruktionen efter macroanropet. 

Macrokroppen innehåller instruktionerna som skall utföras när macron 
anropas. Macrokroppens utseende är följande: 

MACRO 

Macronamn Ev. parametrar 
instruktion 


EN DM 

Macrokroppen anropas med ett anrop som skiljer sig från det som 
används vid subrutiner, nämligen: 

Macronamn Ev. parametrar 

Man ser här att macro är ett sätt att definiera egna opcodes som 
tillägg till de redan existerande. 

Macro används när man vill kombinera mindre programmeringsarbete (som 
vid subrutiner där man skriver sitt programavsnitt en gång och gör 
anrop till subrutinen) med snabbhet. (Vid subrutiner förloras tid 
eftersom CALL och RET måste göras.) 



Macro kan med fördel även användas vid programavsnitt som liknar 
varandra, men där vissa delar eller värden på variabler skiljer s 
mellan anropen. Man brukar vid dessa tillfällen även använda vilU 
lig assemblering, dvs pseudoinstruktionerna 

COND - Start villkorlig assemblering. 

ENDC - Slut villkorlig assemblering. 

COND fungerar enligt följande: 

COND villkor 

instruktioner 

ENDC 

Ovanstående motsvaras i BASIC-notation av 


IF villkor THEN instruktioner 

Nackdelen med macro är att det är minneskrävande i motsats till 
subrutiner. Detta pga att assemblatorn kopierar macrokroppen varj 
gång ett macroanrop sker. 


Exempel: 


MUL 


ZPROG Hel tal smultiplikation (MACRO) 

J 

• ★ 

;* RUTINNAMN "MUL" 

• ★ 

;* 820908 

;* NANCO Elektronik 
;* SAVED AS MUL.ASM 

• ****************************************************** 


★ 

Utför en 

heltalsmutiplikation på positiva tal(0-65E 

* 

★ 

Algoritm 

ur Knuth, 

Art of Computer Program 

* 

★ 

INPUT: 

— 


* 

OUTPUT: 

HL 

- Produkt 

* 


Carry=0 

- Produkt O.K. (0 <= HL <= 65E 

★ 


Carry=l 

- För stort tal (HL > 65535) 

* 

GLOBAL: 



* 

INPUT: 

Fakl 

- Faktor 

•k 


Fak2 

- Faktor 

★ 

★ 

OUTPUT: 

: — 


* 

LOCAL: 

_ 



*****************************************************' 


*PAGE 55 


EXTERNAL FAK1.FAK2 
MACRO 

INIT Fl,F2,INTER ;Initiering 

COND INTERoOOH ;INTER<>0 => Indirekt adresser' 

LD BC, (Fl) 

LD DE,(F2) 

ENDC 
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MUL 


COND INTER=OOH 
LD BC.Fl 
LD DE.F2 

ENDC 
ENDM 

MACRO 

ZT ZTYP 

COND ZTYP=OOH 
LD A,B 

OR C 

ENDC 

COND ZTYP=01H 
LD A,D 

OR E 

ENDC 

COND ZTYP=02H 


ENDC 

ENDM 

MACRO 

MUL2 MBTYP 
COND MBTYP=OOH 
SLA C 
RL B 
ENDC 

COND MBTYP=01H 
SLA E 
RL D 

ENDC 

COND MBTYP=02H 

SLA L 

RL H 

ENDC 

ENDM 

MACRO 

DIV2 DBTYP 
COND DBTYP=OOH 
SRA C 
RR B 
ENDC 

COND DBTYP=01H 
SRA E 
RR D 

ENDC 

COND DBTYP=02H 

SRA L 

RR H 

ENDC 

ENDM 


»INTER=o => Direkt adressering 

• r 

;0 eS =>°BC re91Sterpar = 0 
;1 => DE 

;2 => HL 

;Registerpar=Registerpar*2 

;0 => BC 

;1 => DE 

;2 => HL 

;Registerpar=Registerpar/2 

;0 => BC 

;1 => DE 

;2 => HL 


EQU * 

INIT FAK1,FAK2,01H 
LD HL,OOOOH 


;Initiera BC och DE 
;Beräknad produkt i HL 
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REPEAT 

EQU 

* 



ZT 

OOH 

;Test om register = 0 (BC) 


RET 

Z 

;Om så, är multiplikation färdig 

9 

BIT 

O.C 

;0m BC är ett jämt tal (b0=0) 


JR 

Z,MULEVEN 

;så öka ej produkten 

9 

ADD 

HL, DE 

;annars addrera till DE till pro 


RET 

C 

;Om carry sätts, tal>65535, erro 

MULEVEN 

EQU 

* 



MUL2 

OIH 

;Multipl icera register med 2 (DE 


DIV2 

OOH 

;Dividera register med 2 (BC) 


JR 

REPEAT 

;Loopa 


END 

MUL 



Objektkoden efter assembleringen följer nedan. (I mnemonics-form 
bättre förståelse.) 


MUL 

LD 

BC, (FAK1) 


LD 

DE,(FAK2) 


LD 

HL,OOOOH 

REPEAT 

LD 

A,B 


OR 

C 


RET 

Z 


BIT 

o,c 


JR 

Z, MULEVEN 


ADD 

HL,DE 


RET 

C 

MULEVEN 

SLA 

E 


RL 

D 


SRA 

C 


RR 

B 


JR 

REPEAT 


MACRO - SUBRUTIN 


Om man kan välja mellan att programmera ett avsnitt som en macro 
eller som en subrutin, följer nedan en tabell som anger vid vill k 
tillfällen man sparar plats med macro respektive subrutin. 


Rutini ängd 
(antal bytes) 

Subrutin 
(antal anrop) 

Macro 

(antal anrop) 

1 

Al drig 

Alltid 

2 

Aldrig 

Alltid 

3 

Aldrig 

Alltid 

4 

> 5 

< 6 

5 

> 3 

< 4 

6 

> 2 

< 3 

7 

> 2 

< 3 

8 

> 1 

< 2 


Man kan beräkna det totala minnesbehovet mha följande formler: 
Macro: Total längd = Rutinlängd * Antal anrop 

Subrutin: Total längd = Rutinlängd + 3 * Antal anrop + 1 
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BILAGA 1 ERRATA 


** 


BASIC II 1.1 


Exponentiering av noll med en 
decimal exponent ger felmeddel¬ 
ande 130 

Ex: ;0**1.2 ger ERROR 130 
(Pga att beräkningen görs enl 

Exp(log(0)*1.2).) 



II 1.12 


/ 


t 



ADDn 


Om man sätter antalet gällande 

S /Inl r ?- ^ C - 2) och skriver 
;ADDn( 0 ,'.00001',-2) fås 
utskriften 0. 


Dvs då man adderar noll (0) med 
ett tal med X gällande siffror 
faller talet bort om det är 
mindre än l.E-Q där Q=X+2. 


Om man skriver ut (med eller 
utan USIMG) ett tal med exponent 
större än 99 eller mindre än -99. 

Om man till ASCII-aritmetiken 
matarjn exponenter större än 
126 sa blir det fel i lagringen 
(lagras negativt). Samma gäller 
för exponenter mindre än 127 
(lagras positivt). 


Felet rättat. 


Felet rättat. 


BOOLEAN 

PRINT -0-0 blir falskt dvs <>-l. 

Felet 

rättat. 

CLOSE 

CLOSE utan fil nummer nollställer 
COMMON-vari abi erna. 

Felet 

rättat. 

COMMON 

Variabeltilldelning före 
COMMON-deklarationer ger "dyk". 

Ger ej 
är ej 

"dyk" men 
tillåtet. 

COMP% 

Ger felaktigt resultat på vissa 
jämförel ser. 

Felet 

rättat. 


Ex: ;C0MP%('500','.01') ger -1 n. 
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BILAGA 1 FORTS. 


BASIC II 1.1 ___ BASIC II 1.12 

CVT CVTn%( ) är ointelligent. Vid 
längd skilt från två fås ett 
felaktigt värde. 

Ex : 

CVTn%("A") ger varken 65 eller 
256*65 då CVTn^ alltid räknar in 
två tecken. 

Det andra tecknet är odefinierat. 


ERASE ERASE 0-"icke numeriskt" raderar Felet rättat, 
allt som finns i minnet. 

Ex. ERASE O-L 


(var) Om ett program innehåller långa 
variabel namn och man gör ERASE 
1nl-1 n2 och sparar programmet, 
finns de långa variabel namnen 
kvar som låg på de borttagna 
raderna. 

Åtgärd: Spara programmet med 
LIST och hämta in det igen. 

ERROR Vissa felmeddelanden ges två Felet rättat, 

gånger, t.ex. Error 39. 


FOR Single-step. Felet rättat. 

Ex: 

10 FOR 1=0 TO 1000 

20 ;I; 

30 NEXT I 

Använder man single-step i denna 
FOR-loop "ramlar" BASIC-en ur. 


GOTO Flerradiga funktioner med GOSUB, Felet rättat. 

GOSUB GOTO, som refererar till rader Ej tillåtet at 

utanför funktionen, kan ge "dyk" referera till 
i vissa fall. radnr utanför 

funktionen. 
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BILAGA 1 FORTS 


INPUT 


KILL 

MIDn 

MUfln 

ON ERROR 

SAVE 


BASIC II 1.1 


BASIC 


Vid INPUT matas talet in med Felet 

"rätt" noggrannhet och avrundas. 

Vid LET däremot matas talet all¬ 
tid in med DOUBLE och trunkeras 
till önskad längd. 

IlNGLE 
10 A.=.l 
20 INPUT B. 

30 IF A.=B. THEN PRINT "A=B" 

ELSE PRINT "AOB" 

RUN 
? .1 
AOB 
ABC800 

KILL 'filnamn' på skrivskyddad Felet 
skiva ger ej felmeddelande. 

MIDn(...n,X,Y)='ABC800' ger 
felaktiga felmeddelanden om 
är ett reserverat ord. 

Ex: 

MIDn(TABn,X,Y)='OLLE' ger Error 
36. 


DOUBLE Felet 

PRINT NUMu(7.057) 

Ger felaktig utskrift. 


I samband med ERROR-hantering Felet 

och flerradiga funktioner kan 
"dyk" ske vid felaktigt uthopp 
ur funktionen. Se G0T0/G0SUB. 


SAVE filnamn Felet 

Ger Error 41 vid öppen lucka. 

Ska vara Error 42. 

Ger Error 41 vid skrivskyddad 
skiva och filen ej finns på 
skivan. Ska vara Error 43. 

Ger Error 41 om skivan är full 
och det finns en skiva i drive 1. 


II 1.12 


rättat. 


rättat. 


rättat. 


rättat. 


rättat. 
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BILAGA 1 FORTS 


BASIC II 1.1 


BASIC II 1.12 


SINGLE Ex: Felet rättat. 

STEP 10 REM 

20 PRINT 'text' 

30 GOTO 20 

Om programmet körs med single step 
och avbryts med CTRL-C när rad 20 
skall exekveras, får man 

STOP IN LINE 10 


TAB Utskrift m.h.a. TAB( ) på CON: Felet rättat, 

fungerar ej riktigt 

Ex: 

100PEN 'CON:' AS FILE 1 
20 PRINT #1 TAB(10)'ABC';TAB(20) 

'DATA' 

30 CLOSE 1 

Detta ger utskriften "ABC" i pos. 10 
men "DATA" i pos. 30. 


TRACE TRACE ger fel utskrift vid Felet rättat, 

radnummer större än 32767 
(hel tal sutskrift). 

I kommandomode: Felet rättat. 

TRACE nl 

NOTRACE 

Detta ger Error 32. 


TRIG Trigonometriska funktioner ger: 

Fel värde vid indata större än 
4096*2*PI. 

Errormeddelande vid indata stör¬ 
re än 8192*2*PI. 




BILAGA 1 FORTS. 


BASIC II 1.1 


BASIC II 1.12 


TAB Tab position vänsterjusteras ett Felet rättat, 
steg vid utskrift, fr.o.m andra 
inläsningen. 

Ex: 

10PREPARE 'TEST.TXT' AS FILE 1 
20 ;#1,TAB(20) 'ABC' 

30 ;#1,TAB(20) '800' 

40 ;#1,TAB(20) 'DATOR' 

50 CLOSE 1 

60 OPEN 'TEST.TXT' AS FILE 1 
70 ON ERROR GOTO 130 
80 WHILE -1 
90 INPUT LINE #l,An 
100 An=LEFTn(An,LEM(Aa)-2) 

110 ;An 
120 WEND 
130 CLOSE 1 



BILAGA 2 PROGRAMLISTNINGAR 


På följande sidor är nedanstående program och exempel listac 
Kapitel_Program/funktion 


2.3.3 

BINSÖK 

2.3.4 

INMATA 

UPPDATERA 

BORT 

LISTA 

3.2.1 

FILL 

INSERT 

DELETE 

4.2 

CRTADJ 

4.3.3 

AN IMERING 

4.3.4 

HRGET 

HRPUT 

HRLOAD 

HRSAVE 

HRERASE 

5.3.3 

EXTBAS 

ÖVRIGT 

CHAIN 

OPEN 

PREPARE 


CURn 

CURPOS 

ERROR 

GET 

INPUT 

MESSAGE 

SHIFTn 
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BILAGA 2 BINSÖK 


47000 ! .-. 

47001 DEF FNBinsök(Söktextn,Min,Max) LOCAL Mitten 

47002 ! .-. 

47003 ! Söker efter en sträng med bi närsökning 

47004 ! Sökvektorn skall vara sorterad !!! 

47005 ! Minsta index i sökvektorn skall vara ett (1) 

47006 ! Rekursiv variant 

47007 ! 


47008 

! IN: 



47009 

! - PARAMETRAR: 

Söktextn 

- Text som skall sökas 

47010 

! - 

Min 

- Minsta index i sökvek- 


torn 



47011 

! - 

Max 

- Största index i sökvek- 


torn 



47012 

47013 

! - GLOBALA 

j 

Strängn() 

- Sökvektor 

47014 

i UT: 



47015 

j 



47016 

! - FUNKTIONSVÄRDE: 
vektorn 

0 

- Texten fanns ej i sök- 

47017 

sökvektorn 

<> 0 

- Index för funnen text i 

47018 

! - GLOBALA: 

— 



47019 ! 

47020 ! LOKALA VARIABLER: 

47021 ! 

47022 ! Mitten - Index för aktuell text vid sökning 

47023 ! 

47024 ! ANVÄNDNA FUNKTIONER: 

47025 ! FNBinsökO 

47026 ! 

47027 ! ÖVRIGT: 

47028 ! 

47029 ! - — 

47030 ! - 

47031 ! 

47032 ! Tag ut aktuellt index för sökvektorn 

47033 Mitten=(Min+Max)/2 

47034 ! 

47035 ! Är sökvektor lika med söktexten så returnera index till 
sökvektorn 

47036 IF Strängn(Mitten)=Söktextn THEN RETURM Mitten 

47037 ! 

47038 ! Ar texten ej funnen så returnera 0 

47039 IF Mitten=Max THEN RETURN 0 

47040 ! 

47041 ! Är söktexten i övre halvan av sökvektorn så rekursera med 
Min= Mitten+1 

47042 IF Söktextn>Strängn(Mitten) THEN RETURN FNBinsök(Söktextn, 
Mitten+1,Max) 

47043 ! 

47044 ! Söktexten är i undre halvan av sökvektorn. Rekursera med Max 
Mitten-1 

47045 RETURN FNBinsök(Söktextn,Min,Mitten-1) 

47046 FNEND 








BILAGA 2 INMATA 


1000 

1010 

1020 

1030 

1040 

1050 

1060 

1070 

1080 

1090 

1100 

1110 

1120 

1130 

1140 

1150 

1160 

1170 

1180 

1190 

1200 

1210 

1220 

1230 

1240 

1250 

1260 

1270 

1280 

1290 

1300 

1310 

1320 

1330 

1340 

1350 

1360 

1370 


! EXEMPEL PÅ ISAM ANVÄNDING 
! INMATNING 

i 

iNTEGER : EXTEND : DOUBLE : OPTION BASE 0 

j 

! Dimensionera variabler 

DIM Postn=61,Artnrn=15,Benämnn=20 

I 

! Öppna ISAM fil (OBS Vi öppnar nyckel fil en) 
ISAM OPEN 'ARTIKLAR.ISM' AS FILE 1 
! 

! Läs poster tills ARTIKELNR=" 

INPUT 'ARTIKELNUMMER: 'Artnrn 


WHILE Artnrno" 

INPUT 'BENÄMNING : 'Benämnn 
INPUT 'SALDO : 'Sal do 

INPUT 'IN-PRIS : 'Ipris. 

INPUT 'UT-PRIS : 'Upris. 

INPUT 'FÖRSÄLJNG : 'Förs. 


j 

! Fyll ut fält till maximal längd 
Artnrn=Artnrn+SPACEn(15-LEN(Artnrn)) 
Benämnn=Benämnn+SPACEn(20-LEN(Benämnn)) 

i 

! Skapa postvariabel 

Postn=Artnrn+Benämnn+CVT%n(Sal do)+CVTFn(Ipris. )+C 
CVTFn(Förs.) 

j 

! Skriv ut post i ISAM-fil 
ISAM WRITE #l,P0Stn 
i 

! Läs nytt artikel nummer 
INPUT 'ARTIKELNUMMER: 'Artnrn 
WEND 


! Stäng ISAM fil 
CLOSE 1 


END 


130 




BILAGA 2 UPPDATERA 



(Upris. 



) + 



1000 ! EXEMPEL PÅ ISAM ANVÄNDING 

1010 ! UPPDATERING 

1020 ! 

1030 INTEGER : EXTEND : DOUBLE : OPTION BASE 0 
1040 ! 

1050 ! Dimensionera variabler 

1060 DIM Postn=61,Newpostn=61,Artnrn=15,Benämnn=20 
1070 ! 

1080 ! Öppna ISAM fil (OBS Vi öppnar nyckelfilen) 

1090 ISAM OPEN 'ARTIKLAR.ISM' AS FILE 1 
1100 ! 

1110 ! Läs post tills ARTIKELNR=" 

1120 INPUT 'ARTIKELNUMMER: 'Artnrn 
1130 WHILE Artnrno" 

1140 ! 

1150 ! Sök och läs in aktuell post 

1160 ISAM READ #1,Posta INDEX 'ARTNR' KEY Artnrn 

1170 ! 

1180 ! Dela upp Postn i respektive delar 

1190 Artnm=MIDn( Postn,1,15) 

1200 Benämnn=MIDn(Postn,16,20) 

1210 Saldo=CVTn%(MIDn(Postn,36,2)) 

1220 Ipris.=CVTnF(MIDn(Postn,38,8)) 

1230 Upris.=CVTnF(MIDn(Postn,46,8)) 

1240 FörS.=CVTnF(MIDn(Postn,54,8)) 

1250 ! 

1260 ! Skriv ut postinnehåll 


1270 

; 'ARTIKELNUMMER 

Artnrn 

1280 

; 'BENÄMNING 

Benämnn 

1290 

; 'SALDO 

Sal do 

1300 

; 'IN-PRIS 

Ipris. 

1310 

; 'UT-PRIS 

Upris. 

1320 

; 'FÖRSÄLJNG 

Förs. 

1330 

j 


1340 

! Läs lageruttag 


1350 

INPUT 'UTTAG 

'Ut 

1360 

j 


1370 

! Uppdatera post 


1380 

Sal do=Saldo-Ut 



1390 Förs.=Förs.+Ut*Upris. 

1400 ! 

1410 ! Skapa postvariabel 

1420 Newpostn=Artnrn+Benämnn+CVT%n(Saldo)+CVTFn(Ipris.)+ 
CVTFn(Upris.)+CVTFn(Förs.) 

1430 ! 

1440 ! Uppdater post i ISAM-fi 1 

1450 ISAM UPDATE #1,Postn TO Newpostn 

1460 ! 

1470 ! Läs nytt artikel nummer 

1480 INPUT 'ARTIKELNUMMER: 'Artnrn 

1490 WEND 
1500 ! 

1510 ! Stäng ISAM fil 

1520 CLOSE 1 
1530 ! 

1540 END 
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BILAGA 2 BORT 


1000 

1010 

1020 

1030 

1040 

1050 

1060 

1070 

1080 

1090 

1100 

1110 

1120 

1130 

1140 

1150 

1160 

1170 

1180 

1190 

1200 

1210 

1220 

1230 

1240 

1250 

1260 

1270 

1280 

1290 

1300 

1310 

1320 

1330 

1340 

1350 

1360 

1370 

1380 

1390 

1400 

1410 

1420 

1430 

1440 

1450 

1460 

1470 

1480 

1490 

1500 


! EXEMPEL PÅ ISAM ANVÄNDING 
! BORTTAGNING 

i 

iNTEGER : EXTEND : DOUBLE : OPTION BASE 0 

j 

! Dimensionera variabler 

DIM Postn=61,Newpostn=61,Artnrn=15,Benämnn=20 

i 

! Öppna ISAM fil (OBS Vi öppnar nyckelfilen) 
ISAM OPEN 'ARTIKLAR.ISM' AS FILE 1 

j 

i Läs post tills ARTIKELNR=" 

INPUT 'ARTIKELNUMMER: 'Artnrn 
WHILE Artnrno" 

j 

! Sök och läs in aktuell post 

ISAM READ #1.Posta INDEX 'ARTNR' KEY Artnrn 


! Dela upp Postn i respektive delar 
Artnru=MIDn(Postn,l,15) 

Benämnn=MIDn(Postn,16,20) 
Saldo=CVTn%(MIDn(Postn,36,2)) 
Ipris.=CVTnF(MIDn(Postn,38,8)) 

Upris.=CVTnF(MIDn(Postn,46,8)) 
Förs.=CVTnF(MIDn(Postn,54,8)) 


! Skriv ut postinnehåll 


; 'ARTIKELNUMMER 
; 'BENÄMNING 
; 'SALDO 
; 'IN-PRIS 
; 'UT-PRIS 
; 'FÖRSÄLJNG 


Artnrn 

Benämnn 

Sal do 

Ipris. 

Upris. 

Förs. 


j 


! Läs om posten skall tas bort 

INPUT 'Skall denna post raderas (J/N) ? 'Svarn 

j 

IF (ASCII(Svam) OR 32)=110 THEN 1420 


! Radera post i ISAM-fil 
ISAM DELETE #1,Postn 

i 

! ENDIF 

! Läs nytt artikel nummer 
INPUT 'ARTIKELNUMMER: 'Artnrn 
WEND 

i 

! Stäng ISAM fil 
CLOSE 1 
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BILAGA 2 LISTA 


1000 

1010 

1020 

1030 

1040 

1050 

1060 

1070 

1080 

1090 

1100 

1110 

1120 

1130 

1140 

1150 

1160 

1170 

1180 

1190 

1200 

1210 

1220 

1230 

1240 

1250 

1260 

1270 

1280 

1290 

1300 

1310 

1320 

1330 

1340 

1350 

1360 

1370 

1380 

1390 

1400 

1410 

1420 

1430 

1440 

1450 

1460 

1470 

1480 

1490 


! EXEMPEL PÅ ISAM ANVÄNDING 
! LAGERLISTA 

i 


INTEGER : EXTEND : DOUBLE : OPTION BASE 0 

! Dimensionera variabler 

DIM Posta=61,Newpostn=61,Artnrn=15,Benämn 0=20 

! Öppna ISAM fil (OBS Vi öppnar nyckelfilen) 
ISAM OPEN 'ARTIKLAR.ISM' AS FILE 1 

i 


! Skriv överskrift 
; 'LAGERLISTA' 


; ARTNR' TAB(15) 'BENÄMNING' TAB(35) 'SALDO' TAB(45) 'IN-PRIS' 
TAB(55) 'UT-PRIS' TAB(65) 'FÖRSÄLJNING' 

; STRINGn(80,95) 


J 

! Läs lagerlista tills EOF 
ON ERROR GOTO 1420 


ISAM READ #1,Posta INDEX 'ARTNR' FIRST 
WHILE -1 


! Dela upp Postn i respektive delar 
Artnrn=MIDn(Posto,1,15) 
Benämnn=MIDn(Postn,16,20) 
Saldo=CVTn%(MIDn(Postn,36,2)) 
Ipris.=CVTnF(MIDn(Postn,38,8)) 
Upris.=CVTnF(MIDn(Postn,46,8)) 
Förs.=CVTnF(MIDn(Postn,54,8)) 

i 

i Skriv ut postinnehåll 
; Artnrn; 

; TAB(16) Benämnn; 

; USING '&UUUU' TAB(36) Sal do; 

; USING TAB(45) Ipris.; 

; USING TAB(55) Upris.; 

; USING TAB(65) Förs. 


! Summera försäljning 
Sum.=Sum.+Förs. 

ISAM READ #1,Postn INDEX 'ARTNR' NEXT 
WEND 

j 

! Skriv ut total försäljning 

; USING 'munnutt.##' TAB(56) 'SUMMA = ' TAB(65) Sum. 

! Stäng ISAM fil 
CLOSE 1 

i 

END 
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BILAGA 2 FILL 


50000 ! .-. 

50001 DEF FNFill (Pos,Antal ,Tkn) LOCAL Dumrny,Coden=14 


50002 

i 



50003 

1 



50004 

j 

Fyll en sträng med antal st tecken med ASCII-värdet tkn 

50005 

i 

från postion Pos. Ifall Pos+Antal överskrider aktuell 

50006 

j 

längd 

ökas aktuell längd med Pos+Antal 

50007 

50008 

50009 

j 

i 

i 

IN 


50010 

j 

Pos 

- Startposition i strängen Sn 

50011 

j 

Antal 

- Antal tecken som skall fyllas 

50012 

j 

Tkn 

- ASCII värdet för det tecken som Sn skall 

50013 

50014 

j 

j 

UT 

fyllas med 

50015 

50016 

i 

j 

0 

- Allt gick bra 

50017 

50018 

1 

j 

<>0 

- Fel. Ec returneras 

50019 

j 

GLOBALA VARIABLER 

50020 

50021 

50022 

j 

; 

i 

Sn 

- Den globala sträng som fylls 

50023 

1 

ÖVRIGT 

50024 

50025 

1 

1 

Coden 

innehåller följande assemblerrutin 

50026 

50027 

| 

1 

LD 

BC,Antal 

50028 

i 

LD 

HL,Pos 

50029 

i 

LD 

(HL),Tkn 

50030 

j 

LD 

A,B 

50031 

i 

OR 

C 

50032 

i 

RET 

Z 

50033 

| 

LDIR 


50034 

50035 

50036 

i 

1 

i 

RET 


1 



50037 

50038 

j 

Kontrollera att dimensioneringar och antal tkn ej 
över/under 

50039 

i 

skrider tillåtna värden 

50040 

IF Antal<0 THEN Ec=135 : RETURN Ec 

50041 

IF Pos+Antal-1>PEEK2(VAROOT(Sn)) THEN Ec=137 : RETURN Ec 

50042 

i 



50043 

j 

Tilldela Coden en assemblerrutin 


50044 Coden=CHRn(l)+CYT%n(Antal-l)+CHRn(33)+CVT%n(VARPTR(Sn)+ 
Pos-l)+CHRn(54,Tkn,120,177,200,237,176,201) 

50045 ! 

50046 ! Anropa assemblerrutinen som ligger i Coden, inparameter 

50047 ! är DEreg som innehåller adressen till startpositionen+1 

50048 Dumn\y=CALL(VARPTR(Coden) ,VARPTR(Sn)+Pos) 

50049 ! 

50050 ! Kontrollera om aktuell längd har överskridits. Isåfall 

50051 ! öka aktuell längd 

50052 IF Pos+Antal-l>LEN(Sn) THEN POKE VAR00T(Sn)+4,Pos+Antal 
-1,SWAP%{Pos+Antal-1) 

50053 ! 
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BILAGA 2 LISTA 


1000 

1010 

1020 

1030 

1040 

1050 

1060 

1070 

1080 

1090 

1100 

1110 

1120 

1130 

1140 


1150 

1160 

1170 

1180 

1190 

1200 

1210 

1220 

1230 

1240 

1250 

1260 

1270 

1280 

1290 

1300 

1310 

1320 

1330 

1340 

1350 

1360 

1370 

1380 

1390 

1400 

1410 

1420 

1430 

1440 

1450 

1460 

1470 

1480 

1490 


! EXEMPEL PÅ ISAM ANVÄNDING 
! LAGERLISTA 

j 

INTEGER : EXTEND : DOUBLE : OPTION BASE 0 

! Dimensionera variabler 

DIM Postn=61,Newpostn=61,Artnrn=15,Benämnn=20 

; Öppna ISAM fil (OBS Vi öppnar nyckelfilen) 
ISAM OPEN 'ARTIKLAR.ISM' AS FILE 1 

! Skriv överskrift 
; 'LAGERLISTA' 


; 'ARTNR' TAB(15) 
TAB(55) 'UT-PRIS' 
; STRINGn(80,95) 


'BENÄMNING' TAB(35) 'SALDO' 
TAB(65) 'FÖRSÄLJNING' 


TAB(45) 'IN-PRIS' 


! Läs lagerlista tills EOF 
ON ERROR GOTO 1420 

ISAM READ #1,Postn INDEX 'ARTNR' FIRST 
WHILE -1 
] 

! Dela upp Posta i respektive delar 

Artnra=MIDn(Postn,l,15) 

Benämnn=MlDn(Postn,l 6 , 20 ) 

Saldo=CVTn%(MIDn(Postn,36,2)) 
Ipris.=CVTnF(MIDn(Postn,38,8)) 
Upris.=CVTaF(MIDa(Postn,46,8)) 

Förs. =CVTn|- (MIDn(Postn,54 ,8)) 

• Skriv ut postinnehål 1 
; Artnrn; 

; TA3(16) Benämna; 

; US ING '&MMMM' TAB(36) Saldo; 

; USING '&MMMMM.MM' TAB(45) Ipris.- 
; USING '&MMMMM.MM' TAB(55) Upris.- 
; USING '&MMMMM.MM' TAB(65) Förs. * 

! Summera försäljning 
Sum.=Sum.+Förs. 

ISAM READ nl ,Postn INDEX 
WEND 

i 


'ARTNR' NEXT 


Skriv ut total försäljning 
USING '&&&MMMMM.MM' TAB(56) 


i 

! Stäng ISAM fil 
CLOSE 1 

j 

ÉND 


'SUMMA = ' TAB(65) Sum. 
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BILAGA 2 FILL 


50000 ! .-... 

50001 DEF FNF111 (Pos,Antal,Tkn) LOCAL Dumn\y,Coden=14 

50002 ! .-. 

50003 ! 

50004 ! Fyll en sträng med antal st tecken med ASCII-värdet tkn 

50005 ! från postion Pos. Ifall Pos+Antal överskrider aktuell 

50006 ! längd ökas aktuell längd med Pos+Antal 

50007 ! 

50008 ! IN 

50009 ! 

50010 ! Pos - Startposition i strängen Sn 

50011 ! Antal - Antal tecken som skall fyllas 

50012 ! Tkn - ASCII värdet för det tecken som Sn skall 

50013 ! fyllas med 

50014 ! UT 

50015 ! 

50016 ! 0 - Allt gick bra 

50017 ! <>0 - Fel. Ec returneras 

50018 ! 

50019 ! GLOBALA VARIABLER 

50020 ! 

50021 ! Sn - Den globala sträng som fylls 

50022 ! 

50023 ! ÖVRIGT 

50024 ! 

50025 ! Coden innehåller följande assemblerrutin 

50026 ! 

50027 ! LD BC,Antal 

50028 ! LD HL,Pos 

50029 ! LD (HL),Tkn 

50030 ! LD A,B 

50031 ! OR C 

50032 ! RET Z 

50033 ! LDIR 

50034 ! RET 

50035 ! 

50036 ! -- 

50037 ! 

50038 ! Kontrollera att dimensioneringar och antal tkn ej 

över/under 

50039 ! skrider tillåtna värden 

50040 IF Antal<0 THEN Ec=135 : RETURN Ec 

50041 IF Pos+Antal-1>PEEK2(VAROOT(Sn)) THEN Ec=137 : RETURN Ec 

50042 ! 

50043 ! Tilldela Coden en assemblerrutin 

50044 Coden=CHRn(l)+CVT%n(Antal-l)+CHRn(33)+CVT%n(VARPTR(Sn)+ 
Pos-l)+CHRn(54,Tkn,120,177,200,237,176,201) 

50045 ! 

50046 ! Anropa assemblerrutinen som ligger i Coden, inparameter 

50047 ! är DEreg som innehåller adressen till startpositionen+1 

50048 Dummy=CALL(VARPTR(Coden),VARPTR(Sn)+Pos) 

50049 ! 

50050 ! Kontrollera om aktuell längd har överskridits. Isåfall 

50051 ! öka aktuell längd 

50052 IF Pos+Antal-l>LEN(Sn) THEN POKE VAROOT(Sn)+4,Pos+Antal 
-1,SWAP%(Pos+Antal-1) 

50053 ! 
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50054 

50055 

50056 


; Jtergå med värdet 0 som indikerar att inga fel uppstod 
RETURN 0 
FNEND 
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BILAGA 2 INSERT 


50200 ! .. 

50201 DEF FNInsert(Pos.Stm) LOCAL Dummy,L,Coden=9 

50202 !.-. 

50203 ! 

50204 ! Skjut in strängen <Stm> i strängen <Sn> från position 
<Pos> 

50205 ! Aktuell längd ökas med längden av <Strn>. 

50206 ! 

50207 ! IN 

50208 ! 

50209 ! Pos - Startposition i strängen Sn 

50210 ! Strn - Sträng som skall insättas 

50211 ! 

50212 ! UT 

50213 ! 

50214 ! 0 - Allt gick bra 

50215 ! <>0 - Fel. Ec returneras 

50216 ! 

50217 ! GLOBALA VARIABLER 

50218 ! 

50219 ! Sn - Arbetssträng 

50220 ! 

50221 ! ÖVRIGT 

50222 ! 

50223 ! Coden innehåller följande assemblerrutin 

50224 ! 

50225 ! LD BC,Antal 

50226 ! LD HL,LEN(Sn) 

50227 ! LDIR 

50228 ! RET 

50229 ! 

50230 ! - 

50231 ! 

50232 ! Kontrollera att dimensionerad längd ej överskrids, iså- 
fal 1 

50233 ! återgå med Ec satt till error 

50234 IF (LEN(Sn)+LEN(Stm)>PEEK2( VAROOT(Sn))) OR 

(Pos+LEN( Strn)-1> PEEK2( VAROOT(Sn) )) THEN Ec=137 : 

RETURN Ec 

50235 ! 

50236 ! Ifall 'insert strängen' har längd 0 återgå med 0, Allt 
bra 

50237 IF LEN(Strn)=0 THEN RETURN 0 

50238 ! 

50239 ! Ifall 'insert strängen' hamnar efter aktuell längd 

50240 ! behövs ingen isärflyttning 

50241 IF LEN(Sn)-Pos+l<l THEN 50251 

50242 ! 

50243 ! Tilldela Coden en assemblerrutin 

50244 Coden=CHRn(1)+CVT%n(LEN(Sn)-Pos+1)+CHRn(33)+CVT%n(VARPTR 
(Sn)+ LEN(Sn)-1)+CHRn(237,184,201) 

50245 ! 

50246 ! Anropa assemblerrutinen i Coden, inparameter är DE 

50247 ! som innehåller adressen till 'nya' positionen 

50248 Dummy=CALL(VARPTR(Coden),VARPTR(Sn)+LEN(Strn)+LEN(Sn)-l) 

50249 ! 

50250 ! Öka aktuell längd med längden av Strn 

50251 L=LEN(Sn) 

50252 IF Pos>L+l THEN L=Pos-l 


136 










50253 POKE VAROOT(Sn)+4,L+LEM(Strn),SWAP%(L+LEfJ(Strn)) 

50254 ! 

50255 ! Stonpa in Strn i Sn 

50256 MIDnfSDjPos, LEM(St.rn) )=Str«J 

50257 ! 

50258 i Aterqå ned 0 , Allt gick bra 

50259 RETURM 0 

50260 FMEMD 









BILAGA 2 DELETE 


50100 ! 


50101 DEF FNDelete(Pos,Antal) LOCAL Dummy,L,Coden=12 


50102 

50103 

50104 

50105 

50106 

50107 

50108 

50109 

50110 

50111 

50112 

50113 

50114 

50115 

50116 

50117 

50118 

50119 

50120 

50121 

50122 

50123 

50124 

50125 

50126 

50127 

50128 

50129 

50130 

50131 

50132 

50133 

50134 

50135 


Ta bort <Antal> tecken från position <Pos>. Kvarvarande 
delar skjuts ihop och aktuell längd minskas med <Antal> 

IN 

Pos - Startposition i strängen Sn 

Antal - Antal tecken som skall tas bort 

UT 

0 - Allt gick bra 

<>0 - Fel. Ec returneras 

GLOBALA VARIABLER 

Sn - Global sträng där borttagning sker 

ÖVRIGT 

Coden innehåller följande assemblerrutin 

LD BC,LEN(Sn)-Pos-Antal +1 

LD HL,VARPTR(Sn)+Pos+Antal 

LD A,B 

OR C 

RET Z 

LDIR 

RET 


Kontrollera att aktuell längd inte överskrids eller att 


antal> 0 


50136 IF (Pos>LEN(Sn) ) OR (Pos+Antal -l>LEN(Sn)) THEN Ec=134 : 
RETURN Ec 

50137 IF Antal<0 THEN Ec=135 : RETURN Ec 

50138 ! 

50139 ! Tilldela Coden en assembl errutin 

50140 Coden=CHRn( 1 )+CVT%n( LEN (Sn) -Pos-Antal +l)+CHRn(33)+CVT%n 
(VARPTR(Sn)+Pos+Antal-l)+CHRn(120,177,200,237,176,201) 

50141 ! 

50142 ! Anropa assemblerrutinen i Coden, inparameter är DE 

50143 ! som innehåller adressen till första 'delete position' 

50144 Dummy=CALL(VARPTR(Coden),VARPTR(Sn)+Pos-l) 

50145 ! 

50146 ! Minska aktuell längd med det antal tecken som tagits 
bort 


50147 L=LEN(Sn) 

50148 POKE VAR00T(Sn)+4,L-Antal ,SWAP%(L-Antal) 

50149 ! 

50150 ! Återgå med 0 som indikerar att allt gick bra 

50151 RETURN 0 

50152 FNEND 
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BILAGA 2 CRTADJ 


10000 ! ******************************************************** 

lE i: cr ™ j * 

10050 ' ******************************************************** 

10070 J Bl ’ ldskärmsj ' usteri ' n 9 NANCO Elektorn'k 820926 

10080 Vert=4 
10090 Hor=100 
10100 Mi'nvert=0 
10110 Maxvert=31 
10120 Minhor=80 
10130 Maxhor=120 
10140 ! 

10150 ; CUR(O.O) STRINGn(80,127) 

10160 FOR 1=1 TO 22 

10170 ; CUR(1,0) " TAB(80) ' 

10180 NEXT I 

10190 ; STRINGn(80,127); 

10200 ; CUR(3,28) 'Bildskärmsjusterinq' 

10210 ; CUR(4,28) ==================-' 

10220 ; CUR(8,38) 'Upp' 


10200 

10210 

10220 

10230 

10240 

10250 

10260 

10270 

10280 

10290 


CUR(8,38) 'Upp' 
CUR(9,38) 'PF5' 
CUR(10,25) 'Vänster 
CUR( 11,25) '< — 

CIJR( 12,38) 'PF7' 
CUR(13,38) 'Ner' 


Höger' 
—>' 


10280 ; CIJR(20,1) STRINGn(78,ASCII('=')) 

10290 ; CUR(21,5) '<-- = Vänster PF5 = Udd 

RETURN = Avsluta' PP 

10300 ; CUR(22 5) '--> = Höger PF7 = Ner' 

10310 ! Ner 

10320 WHILE 1 

10330 OUT 56,2,57 ,Hor, 56 , 5 , 57, Vert 
10340 ; CUR(22,65) 'Välj 

10350 GET Aa 

10360 Z=INSTR(1,CHRa(13,8,9,196,198),An) 

10370 IF Z=0 THEN 10340 

10380 IF Z=1 THEN 10440 

JJJ390 IF 1=2 IF Hor<Maxh or Hor=Hor+l ELSE PUT CHRa(7) 

10400 IF Z=3 IF Hor>Minhor Hor=Hor-l ELSE PUT CHRa(7) 

10410 IF Z=4 IF Vert>Minvert Vert=Vert-l ELSE PUT CHRa( 7 ) 
10430 WEND Z=5 IF Vert<Maxvert Vert=Vert+l ELSE PUT CHRa(7) 

10440 ; CHRa(12) 'Bi 1dskärmsjustering avslutad' 

10450 END 
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BILAGA 2 ANIMERING 


10000 ! ANIMERING 
10010 ! 

10020 ! Ett litet programexempel som flyttar en bild över skärmen 
10030 ! 

10040 ! 

10050 DEF FNBakgrund 
10060 ! 

10070 ! FNBakgrund skriver ut slumpvis valda punkter (stjärnor) 

10080 ! på skärmen med färg 3 (visas i båda FGCTL moderna). 

10090 ! 

10100 FGPOINT 23,56,3 

10110 FGPOINT 68,88 

10120 FGPOINT 210,180 

10130 FGPOINT 120,211 

10140 FGPOINT 230,5 

10150 FGPOINT 230,50 

10160 FGPOINT 120,140 

10170 FGPOINT 50,123 

10180 FGPOINT 3,190 

10190 FGPOINT 170,210 

10200 FGPOINT 150,40 

10210 FGPOINT 10,34 

10220 FGPOINT 45,30 

10230 FGPOINT 50,230 

10240 RETIJRN 0 

10250 FNEND 


10260 DEF FNShape(X,Y,Färg) 

10270 ! 

10280 ! FNShape ritar ut "raketen" med startposition X,Y 

10290 ! och färg Färg. 

10300 ! 

10310 FGPOINT X,Y+3,Färg 
10320 FGLINE X+l.Y+4 

10330 FGLINE X+2,Y+4 

10340 FGLINE X+8,Y+10 

10350 FGLINE X+10,Y+10 

10360 FGLINE X+10,Y+8 

10370 FGLINE X+4,Y+2 

10380 FGLINE X+4,Y+1 

10390 FGLINE X+3,Y 

10400 FGLINE X,Y+3 

10410 ! 

10420 ! Vi ritar olika lång "svans" beroende på vilken 

10430 ! "raketen" ritas med. 

10440 ! 

10450 IF Färg>500 THEN 10530 
10460 FGPOINT X+l.Y+2 
10470 FGLINE X-2,Y-1 

10480 FGLINE X-2,Y-2 

10490 FGLINE X-l.Y-2 

10500 FGLINE X+2,Y+1 

10510 GOTO 10580 
10520 ! 

10530 FGPOINT X+l.Y+2 
10540 FGLINE X-4.Y-3 

10550 FGLINE X-4.Y-4 

10560 FGLINE X-3.Y-4 


140 







FNHrclear nollställer HR-min„e M 




?>S(5.r, é »r- 




: 1 f f %; 


10570 FGLINE X+2.Y+1 

10580 RETURN 0 

10590 FNEND 
10600 ! 

10610 DEF FNHrclearn 
1 10620 
10630 
10640 

10650 FGPOINT 0,0,0 
10660 FGFILL 239,239 
10670 ; CHRn(12) 

10680 RETURN " 

10690 FNEND 
10700 ! 

10710 ! >> huvudprogram 
10720 ! y 

10740 ! FNHrc,earn; ! N°Hställ skärm 

10760 Å^måkgrund U " d färg 3 SOm v1sa$ 1 båda «CTL moderna 
ISS FOR i Mo 0 '"lo b, ]o d o n 96 33r med förflyttning av "raketen" 

10790 FGCTL 73 ! visa färo ? 

10800 A=FNShape(I-l 1-1£?o? , ^ 

färg 2 ’ radera gammal bild och skydda 

sÄ”r +1 - 513) ! "'*• * öi.d med färg 1 och 
1 = 1+1 

FGCTL 72 j visa färg 1 

A=FNShape ( I-l,I-l, 256) , radera gMa , Mld och 

™ a ^'1 J+1 ' 258) ’ n ' ta " b "ö «« «rg 2 och 
10860 MEXT I 
10870 END 


10810 


10820 

10830 

10840 


10850 




BILAGA 2 HRGET 


50300 ! 

50301 DEF FNHrget(Filnamruj) LOCAL Adr,Nr,Dummy,Coden=10,Grafn=256 

50302 

50303 

50304 

50305 

50306 

50307 

50308 

50309 

50310 

50311 


50312 

50313 

50314 

50315 

50316 

50317 

50318 

50319 

50320 

50321 

50322 

50323 

50324 

50325 


FNHrget hämtar en bild från valfri fil och laddar 
HR-minnet med den. Bilden/filen bör vara skapad med 
FNHrput. Rutinen överför 256 byte i taget för att 
spara plats. 


IN 

Fil namnn 

UT 

= 0 
<>0 


Namn på vilken fil HR-bilden skall hämtas 
ifrån 


- Allt gick bra 

- Fel. Ec returneras 


GLOBALA VARIABLER 

ÖVRIGT 

HR-option måste vara ansluten 


50326 

! Code 

a innehåll 

50327 

j 


50328 

! LD 

HL,Adr*64 

50329 

! LD 

BC,256 

50330 

! EX 

DE,HL 

50331 

! JP 

32765 

50332 

j 


50333 

1- 



50334 

50335 

50336 ! Öppna infilen. Ifall fel uppstod returnera felkod 

50337 Nr=99 

50338 IF FNOpen(Filnamnn,Nr) THEN RETURN Ec 

50339 

50340 

50341 

50342 

50343 

50344 

50345 

50346 

50347 

50348 

50349 ! 

50350 ! Tilldela Coden den assemblerrutin som överför 256 byte 

50351 Coden=CHRn( 33) +CVUn( Adr*64)+CHRn( 1,0,1,235,195,253,127) 

50352 ! 

50353 ! Hämta 256 byte av bilden från infil 

50354 GET #Nr,Grafn COUNT 256 

50355 ! 


Sätt startadressen för HR-minnet till 0 
Adr=0 

j 

! Sätt ON ERROR GOTO ifall fel uppstår under överföringen 
ON ERROR GOTO 50369 


! Upprepa överföringen tills vi har nått rad 240 (239) 
WHILE Adr<240 
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50356 ! Överför 256 byte till HR-mlnnet 

50357 Dunrniy=CALL(VARPTR(Coden),VARPTR(Grafn)) 

50358 ! 

50359 ! Öka adressräknaren med 4 

50360 Adr=Adr+4 

50361 WEND 

50362 ! 

50363 ! Stäng Infilen och returnera 0. Allt qlck bra 

50364 CLOSE Nr 

50365 RETURN 0 

50366 ! FELRUTIN 

50367 ! 

50368 ! Fel uppstod under överföringen. Returnera felkod. 

50369 Ec=ERRCODE 

50370 RETURN Ec 

50371 FNEND 



BILAGA 2 HRPUT 


50400 

50401 

50402 

50403 

50404 

50405 

50406 

50407 

50408 

50409 

50410 

50411 

50412 

50413 

50414 

50415 

50416 

50417 

50418 

50419 

50420 

50421 

50422 

50423 

50424 

50425 

50426 

50427 

50428 

50429 

50430 

50431 

50432 

50433 

50434 

50435 

50436 

50437 

50438 

50439 

50440 

50441 

50442 

50443 

50444 

50445 

50446 

50447 

50448 

50449 

50450 

50451 

50452 


DEF FNHrput(Filnamnn) LOCAL Adr.Dummy,Nr,Coden=9,Grafn=256 


FNHrput sparar HR-minnet på valfri fil. Bilden/filen 
kan sedan hämtas och åter visas med hjälp av FNHrget. 
Överför endast 256 byte åt gången för att spara plats. 


- Namn på vilken fil HR-bilden skall sparas 


- Allt gick bra 

- Fel. Ec returneras 

GLOBALA VARIABLER 


ÖVRIGT 

HR-option måste vara ansluten 

Coden innehåller följande assemblerrutin 

LD HL,Adr*64 
LD BC,256 
JP 32765 


! Skapa utfilen. Ifall fel uppstår returnera felkod 
Nr=99 

IF FNPrepare(Filnamna,Nr) THEN RETURN Ec 

j 

! Nollställ den plats där delarna av grafikminnet lagras 
temporärt 

Grafn=STRINGn(256,0) 

I 

! Starta överföringen av grafikminnet till fil i grupper 
! om 256 byte. Adr är adressen i HR-minnet som startar 
fran 0 
Adr=0 

I 

! Ställ ON ERROR GOTO ifall något fel skulle uppstå under 
överföringen 
ON ERROR GOTO 50469 
] 

! Upprepa överföringen till vi har nått rad 240 (239) i 

HRminnet 

WHILE Adr<240 

j 

! Tilldela Coden den assemblerrutin som överför 256 byte 

Coden=CHRn( 33 )+CVUn(Adr* 64 )+CHRn(l, 0 ,l, 195 , 253 , 127 ) 


IN 

Filnamnn 

UT 

= 0 
<>0 
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50453 

50454 

50455 

50456 

50457 

50458 

50459 

50460 

50461 

50462 

50463 

50464 

50465 

50466 

50467 



. Anropa Coden. Överför 256 bvtp 
Dumny=CALL(VARPTR(Coden), VARPTR(Grafn)) 


i Spara 256 byte pl fil 
PUT #Nr,Grafn 


! Öka adress räknaren med 4 ivi 
Adr=Adr+4 
WEND 


hämtar 4 rader 


i taget) 


j 


! Stäng utfilen och returnera 0 
CLOSE Nr 
RETURN 0 
! FELRUTIN 

j 


Allt gick bra. 


50468 ! Fel uppstod under överföri 

50469 Ec=ERRCODE 

50470 RETURN Ec 

50471 FNEND 


ngen. Returnera felkod 
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BILAGA 2 HRLOAD 


50500 

50501 

50502 

50503 

50504 

50505 

50506 

50507 

50508 

50509 

50510 


50511 

50512 

50513 

50514 

50515 

50516 

50517 

50518 

50519 

50520 

50521 

50522 

50523 

50524 

50525 

50526 

50527 

50528 

50529 

50530 

50531 

50532 

50533 

50534 

50535 

50536 

50537 

50538 

50539 

50540 

50541 

50542 

50543 

50544 

50545 

50546 

50547 

50548 

50549 

50550 

50551 

50552 

50553 

50554 

50555 


j _ 

Hämta en bild från valfri fil och lägg i HR-minnet 
Bil den överförs i ett stycke och därför behövsen^n^i 
variabel med längden 16384 byte. n loka 

IN 

Filnamn» . Namn^på vilken fil HR-bilden skall hämtas 


! UT 

= 0 
<>0 


- Allt gick bra 

- Fel. Ec returneras 


GLOBALA VARIABLER 

ÖVRIGT 

HR-option måste vara ansluten 

Codeu innehåller följande assemblerrutin 

LD HL,0 
LD BC,16384 

EX DE,HL 
JP 32765 


I^Oppna infil. Om öppningen misslyckas returnera felkod 
IF FNOpen(Filnamnn,Nr) THEN RETURN Ec 

ifan misslyckas 
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Coden=CHRn( 33fo°0^1 ^0^64^235^195^253^127 )^ Ver ^° r 16384 byte 

! Läs 16384 byte från infil 
GET #Nr,Grafn COUNT 16384 

! Anropa Coden och överför 16384 byte till HR ninnot 
Dummy=CALL(VARPTR(Coden),VARPTR(Grafn)) 

CL0SE r Sr r ' fn9en 9 ’ Ck bra - Stän3 infi1 och turnera 0 
RETURN 0 
! FELRUTIN 

i 

! Överföringen misslyckades. Returnera felkod 











50556 Ec=ERRC0DE 

50557 RETURN Ec 

50558 FNEND 






BILAGA 2 HRSAVE 


50600 ! —..... 

50601 DEF FNHrsave(Filnamnn) LOCAL Dummy,Nr,Coden=9,Grafn=16384 

50602 

50603 

50604 

50605 


50606 

50607 

50608 

50609 


Överför HR-minnet till valfri fil. HR-minnet öveförs i 
ett stycke och därför krävs en lokal variabel på 16384 
byte. 

IN 

Fil namnn - Namn på vilken fil HR-bilden skall sparas 
på 


50610 

50611 

50612 

50613 

50614 

50615 

50616 

50617 

50618 

50619 

50620 

50621 

50622 

50623 

50624 

50625 

50626 

50627 

50628 

50629 

50630 

50631 

50632 

50633 

50634 

50635 

50639 

50640 

50641 

50642 

50643 

50644 

50645 

50646 


UT 

= 0 - Allt gick bra 

<>0 - Fel. Ec returneras 

GLOBALA VARIABLER 


ÖVRIGT 

HR-option måste vara ansluten 

Coden innehåller följande assemblerrutin 

LD HL,0 
LD BC,16384 
JP 32765 


! Skapa utfil- Ifall fel uppstår returnera Ec 
Nr=99 

IF FNPrepare(Filnamnn,Nr) THEN RETURN Ec 

i 

! Ställ aktuell längd på Grafn till 16384 
POKE VAR00T(Grafn)+4,0,64 

j 

! Sätt ON ERROR GOTO ifall fel uppstår under överförinqen 
ON ERROR GOTO 50660 

i 

! Tilldela Coden den assembl errutin som överför 16384 byte 
Coden=CHRn(33,0,0,1,0,64,195,253,127) 


50647 ! 

50648 ! Anropa Coden. 

50649 Dummy=CALL(VARPTR( Coden),VARPTR(Grafn)) 

50650 ! 

50651 ! Spara Grafn på utfi 1 - 

50652 PUT #Nr,Grafn 

50653 ! 

50654 ! Överföringen gick bra. Returnera 0 

50655 CLOSE Nr 

50656 RETURN 0 

50657 ! FELRUTIN 
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50658 

50659 

50660 

50661 

50662 


j 

! Överföri 
Ec=ERRC0DE 
RETURN Ec 
FNEND 



i 

:;X: 
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BILAGA 2 HRERASE 


50700 

50701 

50702 

50703 

50704 

50705 

50706 

50707 

50708 

50709 

50710 

50711 

50712 

50713 

50714 

50715 

50716 

50717 

50718 

50719 

50720 

50721 

50722 

50723 

50724 

50725 

50726 

50727 

50728 

50729 

50730 

50731 

50732 

50733 

50734 

50735 

50736 

50737 

50738 

50739 

50740 

50741 

50742 

50743 

50744 

50745 

50746 

50747 

50748 

50749 

50750 

50751 

50752 

50753 

50754 

50755 

50756 


DEF FNHrerase LOCAL Adr,Dummy,Coden=10,Nulln=256 


! Nollställer HR-minnet. Skillnaden mot denna funktion och 
! metoden FGPOINT 0,0,0 : FGFILL 239,239 är att FNhrerase 
! nollställer HELA HR-minnet, även de delar HR-grafiken ei 
! utnyttjar. 


- PARAMETRAR 

- GLOBALA 


- FUNKTIONSVÄRDE 


- GLOBALA 


LOKALA VARIABLER 


- Nollställningen gick bra 

- Fel uppstod. Felkod retur- 
neras. 

- Om funktionsvärdet är <>0 
är Ec satt till ERRCODE 


Adr - Adressräknare i HR-minnet 

Dummy - Dummyvariabel 

Nulln - Konstantsträng som innehåller 256 st CHRn(O) 

Coden - Innehåller Assemblerrutinen för överföring 

av 256 byte till HR-minnet 


ANVÄNDA FUNKTIONER 


ÖVRIGT 


HR-option måste vara ansluten. 

Coden innehåller följande assemblerrutin: 

LD HL,Adr*64 
LD BC,256 

JP 32765 


! Sätt ON ERROR GOTO ifall fel uppstår under noll ställ ninq 
ON ERROR GOTO 50777 

j 

! Nollställ Nulln som utgör 'blanksträng' 

Nulln=STRINGn(256,0) 

i 

! Sätt startadressen för HR-minnet till 0 
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50757 

50758 

50759 

50760 

50761 

50762 

50763 

50764 

50765 

50766 

50767 

50768 

50769 

50770 

50771 

50772 

50773 

50774 

50775 

50776 

50777 


Adr=0 

j 

Ä;< 2 "56 ,St, ' ,ln,ng tf,,S w "ätt rad 2 56 (255) 

J 

CodensCHRHfllj+CVTlnfAdr^J+CHRnU^oll , 235 ,195^53 

ou-^^ÅumRPTOcode^m^RTLi.) i 

• ^ ka adressräknaren med 4 
Adr=Adr+4 
WEND 

i 

RETURM 0 

j 

! FELRUTIN 
i 

Ec=ERRCODE t0d ^ nol1sts "»1"sen. Returnera felkod. 


50778 RETURN Ec 

50779 FNEND 



BILAGA 2 CHAIN 


30300 
■ 30301 

30302 

30303 

30304 

30305 

30306 

30307 

30308 

30309 

30310 

30311 

30312 

30313 

30314 

30315 

30316 

30317 

30318 

30319 

30320 

30321 

30322 

30323 

30324 


j _ 

DEF FNChain(Pn) 


C ^I N - a " Jill filen Pn om fel uppstår 
stalls fraga om diskettbyte avbryt 
returnerar värdet 0 


IN 


- PARAMETRAR P„ . Filrlanln aM anropa 

UT 

- FUNKTIONSVÄRDE - al,a uthopp betyder fel/ 

avbrutet försök 

ANVÄNDA FUNKTIONER 

FNGet 

FNError 


ON ERROR GOTO 30324 

CHAI^P 3 ^^ 1655996 ^^ 0 ^ " LADDNING AV p R0GRAMM0DUL'; : 

; CUR(23,0) 'Byt programdiskett, tryck RETURN (PF1 avbry- 


30325 IF FNGet=192 RETURN 0 ELSE 30322 

30326 FNEND 
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BILAGA 2 OPEN 


30000 ! 


30001 DEF 

30002 ! 

30003 ! 

30004 ! 

30005 ! 

30006 ! 

30007 ! 

30008 ! 


FNOpen(Filn.Filnr) 


Öppnar en fil 
IN 

- PARAMETRAR Filn 


30009 ! - Fil nr 


30010 

30011 

30012 

30013 

30014 

30015 

30016 

30017 

30018 

30019 

30020 

30021 

30022 

30023 

30024 

30025 

30026 


- GLOBALA 
UT 

- FUNKTIONSVÄRDE 0 - 

<>0 - 

- GLOBALA Ec 

LOKALA VARIABLER 

ANVÄNDA FUNKTIONER 


30027 

30028 

30029 

30030 

30031 

30032 

30033 

30034 

30035 

30036 

30037 

30038 

30039 

30040 

30041 

30042 

30043 


ÖVRIGT 


ON ERROR GOTO 30041 
OPEN Filn AS FILE Fil nr 

j 

! Öppning lyckades 
Ec=0 

RETURN 0 

i 

! Öppningen misslyckades 
Ec=ERRCODE 
RETURN Ec 
FNEND 


Namn på filen som skall 
öppnas 

Fil nummer som filen skall 
ha 


Öppning gick bra 

Fel. Ec innehåller felkod 

Felkod 








BILAGA 2 PREPARE 


30100 ! 


30101 DEF FNPrepare(Filn,Filnr) 


30102 

i _ 

30103 

i 

30104 

! Skapar en fil 

30105 

j 

30106 

! IN 

30107 

j 

30108 

! - PARAMETRAR Filn 

30109 

! - Fil nr 

30110 

j 

30111 

! - GLOBALA 

30112 

j 

30113 

! UT 

30114 

j 

30115 

! - FUNKTIONSVÄRDE 

30116 

! - 

30117 

i 

30118 

! - GLOBALA Ec 

30119 

1 

30120 

! LOKALA VARIABLER 

30121 

i 

30122 

! — 

30123 

i 

30124 

! ANVÄNDA FUNKTIONER 

30125 

j 

30126 

! - 

30127 

| 

30128 

! ÖVRIGT 

30129 

i 

30130 

! — 

30131 

30132 

j 

i ___ 


30133 

ÖN ERROR GOTO 30141 

30134 

PREPARE Filn AS FILE Fil 

30135 

j 

30136 

! Filen skapad 

30137 

Ec=0 

30138 

RETURN 0 

30139 

i 

30140 

! Filen kunde ej skapas 

30141 

Ec=ERRCODE 

30142 

RETURN Ec 

30143 

FNEND 


Namn på filen som skall 
öppnas 

Fil nummer som filen skall 
ha 


Öppning gick bra 

Fel. Ec innehåller felkod 

Felkod 







I 


BILAGA 2 CURn 




i 


21500 

21501 

21502 

21503 

21504 

21505 

21506 

21507 

21508 

21509 

21510 

21511 

21512 

21513 

21514 

21515 

21516 

21517 

21518 

21519 

21520 

21521 

21522 

21523 

21524 

21525 

21526 

21527 

21528 


DEF FNCuru(Pos)=CUR(Pos,Pos/256) 

i _ 

j 

! Omvandla inparametern till en cursorposition 
1 

! IN 

j 

! - PARAMETRAR Pos - Heltal som skall omvandlas 

! - till en cursorposition 

! - GLOBALA 

! UT 

j 

i - FUNKTIONSVÄRDE - Cursorposition 

! - GLOBALA 

| 

i LOKALA VARIABLER 

j 

| 

i ANVÄNDA FUNKTIONER 


ÖVRIGT 
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BILAGA 2 CURPOS 


21400 ! . 

21401 DEF FNCurpos=SWAP%(PEEK2(65362)) 

21402 ! . 

21403 ! 

21404 ! Spara aktuell cursor som heltal 

21405 ! 

21406 ! IN 

21407 ! - PARAMETRAR 

21408 ! - GLOBALA 

21409 ! 

21410 ! UT 

21411 ! 

21412 ! - FUNKTIONSVÄRDE 


21413 

21414 

21415 

21416 

21417 

21418 

21419 

21420 

21421 

21422 

21423 


- GLOBALA 
LOKALA VARIABLER 

ANVÄNDA FUNKTIONER 

ÖVRIGT 


- Cursorvärde som hel¬ 
tal 


21424 

21425 


- Cursorvärdet hämtas ur minnesadresserna som innehåller 


21426 


cursorn 


21427 






BILAGA 2 ERROR 


21900 ! - 

21901 DEF 

21902 ! 

21903 ! 

21904 ! 

21905 ! 

21906 ! 

21907 ! 

21908 ! 

21909 ! 

21910 ! 

21911 ! 

21912 ! 

21913 ! 

21914 ! 

21915 ! 

21916 ! 

21917 ! 


FNError(Tn) LOCAL Textn=80 
Skriver ut felmeddelande 
IN: 


- PARAMETRAR Tn 

- GLOBALA 

UT: 

- FUNKTIONSVÄRDE 0 

- GLOBALA 

LOKALA VARIABLER 


21918 

21919 

21920 

21921 

21922 

21923 

21924 

21925 


ANVÄNDA FUNKTIONER 

FNMessage 

ÖVRIGT 


- Felmeddelande 


- Alltid 


21926 

21927 

21928 

21929 

21930 

21931 

21932 

21933 


Generera en signal 
CHRn(7); 

Textn=RED+FLSH+'<'+STDY+T n+FLSH+'>'+STDY 
Skriv ut felmeddelande. Kvittera med <CE> 
RETURN FNMessage(Textn,24) 


21934 FNEND 








BILAGA 2 GET 


21200 

21201 


DEF FNGet LOCAL In=l 


.21202 

i _ 

21203 

j 

21204 

! Läser in ett tecken från 

21205 

! det till ASCII-värdet 

21206 

1 

21207 

! IN: 

21208 

j 

21209 

! - PARAMETRAR 

21210 

! - GLOBALA 

21211 

j 

21212 

! UT: 

21213 

j 

21214 

! - FUNKTIONSVÄRDE 

21215 

! - GLOBALA 

21216 

I _ 

21217 

j 

21218 

! LOKALA VARIABLER: 

21219 

j 

21220 

! - In - Tecken från fil 

21221 

j 

21222 

! ANROP: 

21223 

i 

21224 

J- 

21225 

j 

21226 

! ÖVRIGT 

21227 

i 

21228 

J- 

21229 

i __ 

21230 

j 

21231 

! Hänta tecken från filen 

21232 

GET In 

21233 

i 

21234 

! Omvandla tecknet till ASCI 

21235 

Cinchar=ASCII(In) 

21236 

j 

21237 

! Returnera ASCII-koden för 

21238 

RETURN Cinchar 

21239 FNEND 


tangentbordet och omvandlar 


- ASCII-värde 
för läst tecken 
Cinchar - ASCII-värde 

för läst tecken 
Ec - Felnurrsner 


tecknet 







BILAGA 2 INPUT 
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20651 

20652 

20653 

20654 

20655 

20656 

20657 

20658 

20659 

20660 
20661 
20662 

20663 

20664 

20665 

20666 

20667 

20668 

20669 

20670 

20671 

20672 

20673 

20674 

20675 

20676 

20677 

20678 

20679 

20680 
20681 
20682 

20683 

20684 

20685 

20686 

20687 

20688 

20689 

20690 


20691 

20692 

20693 

20694 

20695 

20696 

20697 

20698 


! Skriv ut inmatade tecken och ' 'till fältet är 
! slut och ställ cursor i rätt inmatningsposition 
; FNCurn(Pos) Inn Edn STRINGn(Längd-LENflnn)- 
LEN(Edn),ASCII(' ')); 

; FNCurn(Pos) Inn; 

j 

! Behandla inmatade tecken 
Inasc=FNGet 

IF Inasc<32 0R Inasc>127 THEN 20670 

i 

! Lagra tecken om det ej maxi ängd överskrids 
IF Inflag=-1 Edn=" 

IF LEN(Inn)<Längd THEN Inn=Inn+CHRn(Inasc) 

! Om max.längd överskrids tas sista tecknet I Edn bort 
IF LEN(Inn)+LEN(Edn)>Längd THEN Edn=LEFTn(Edn,Länqd- 
LEN(Inn)) a 

GOTO 20696 

j 

! Behandla specialtecken 
! Inasc = 0 => Slut på filen 
IF lnasc=0 THEN lnflag=0 

j 

! Inasc = 8 => Bakåtpil. Flytta cursor ett steg åt 

vänster 

IF Inasc=8 THEN Edn=FNShiftn(4,Inn)+Edn : 
Inn=FNShiftn(3,Inn) 
j 

! Inasc = 9 => Framåtpil. Flytta cursor ett steg åt 

höger 

IF Inasc=9 THEN Inn=Inn+FNShiftn(l,Edn) ; 

Edn=FNShiftn(2,Edn) 

IF Inasc<>13 THEN 20685 

i 

! Inasc = 13 => <RETURN> 

! Returnera ALLA tecknen på raden 

Inf1ag=0 

Inn=Inn+Edn 

I 

! Inasc = 24 => <CE> eller CTRL-X. Töm raden 

IF Inasc=24 THEN Inn=" : Edn=" 

i 

! Inasc = 199 => PF8 

! Tecken finns t.h. om cursor: Tag bort tecknet när¬ 

mast t.h. om cursor 

! Tecken finns ej t.h. om cursor: Tag bort tecknet när¬ 
mast t.v. om cursor 

IF Inasc=199 THEN IF LEN(Edn) THEN Edn=FNShiftn(2,Edn) 
ELSE Inn=FNShiftn(3,Inn) 

j 

! Inasc > 127 => PF-tangenter 

! Funktionstangeneter (utom PF8) i l:a pos. => Retur- 

! nering av ALLA tecken på raden 

IF ((Inasc>128 AND Inasc<>199) AND LEN(Inn)=0) THEN 

Inn=Inn+ Edn : lnflag=0 

Inflag=-( InflagoO) 

WEND 

j 
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20699 ! Skriv ut färdfgfnmatade strängen och fyll resten av 
fältet med blanka 

20700 ; FNCurn(Pos) Inn SPACEn(Längd-LEN(Inn)); 

20701 RETURN Inn 

20702 FNEND 
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BILAGA 2 MESSAGE 


22001 

22002 

DEF FNMessage(Tn,Kvittens) 

i _ 

LOCAL P 

22003 


Skriver ut ett meddelande 

22004 




22005 


IN: 


22006 




22007 


- PARAMETRAR 

Kvittens 

22008 


- 


22009 


— 

Tn 

22010 


- GLOBALA 

Ccr 

22011 




22012 


UT: 


22013 




22014 


- FUNKTIONSVÄRDE 

0 

22015 


- GLOBALA 

— 

22016 




22017 


LOKALA VARIABLER: 


22018 




22019 


- P - Cursorpositionen vid 

22020 




22021 


ANVÄNDA FUNKTIONER 


22022 




22023 


FNCurpos 


22024 


FNGet 


22025 


FNCurn 


22026 




22027 


ÖVRIGT 


22028 




22029 


— 


22030 




22031 




22032 


Spara aktuellt värde på 

cursorn 

22033 

P= 

: FNCurpos 


22034 




22035 


Töm meddelanderaden 


22036 


CUR(23,0) SPACEn(Ccr-l) 


22037 




22038 


Skriv ut meddelandet med röd text 


röda < och > 


22039 


CUR(23,Ccr/2-LEN(Tn)/2) 

Tn; 

22040 

IF 

Kvittens=0 THEN RETURN 

0 

22041 

WHILE FNGetoKvittens 


22042 


1 


22043 


! Vänta till dess att meddelandet 

22044 

WEND 


22045 

j 



22046 

j 

Töm meddelanderaden och 

återstäl1 

22047 

J 

CUR(23,0) SPACEn(Ccr-l) 

FNCum(P) 

22048 

i 



22049 

i 

Återvänd med värdet 0 


22050 

RETURN 0 


22051 FNEND 



- Vilken tangent som 
skall användas för 
kvittens 

- Meddelande 

- Radbredd (40/80 tkn) 


- Alltid 
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BILAGA 2 SHIFTn 


21100 

21101 

21102 

21103 

21104 

21105 

21106 

21107 

21108 

21109 

21110 
21111 
21112 

21113 

21114 

21115 

21116 

21117 

21118 

21119 

21120 
21121 
21122 

21123 

21124 

21125 

21126 

21127 

21128 

21129 

21130 

21131 

21132 

21133 

21134 

21135 

21136 

21137 

21138 

21139 

21140 

21141 

21142 

21143 

21144 

21145 

21146 

21147 F 


DEF FNShiftn(Typ,Inn) 


Returnerar en del sträng av insträngen 


PARAMETRAR 


GLOBALA 


- FUNKTIONSVÄRDE 

- GLOBALA 

LOKALA VARIABLER 


ANROP 


ÖVRIGT 


Typ - Anger hur del st¬ 
rängen skall skapas 
Inn - Sträng att dela 


- Del strängen 


! Ingen insträng medskickad medför att delning är omöjlig 
IF Inn=" THEN RETURN " 

j 

! Om Typ=l så returneras l:a tecknet ur insträngen 
IF Typ=l THEN RETURN LEFTn(Inn,l) 

i 

! Om Typ=2 så returneras alla tecken utom första ur in¬ 
strängen 

IF Typ=2 THEN RETURN RIGHTn(Inn,2) 

; 

! Om Typ=3 så returneras alla tecken utom sista ur in¬ 
strängen 

IF Typ=3 THEN RETURN LEFTn( Inn,LEN(I nn) -1) 

i 

! Om Typ=4 så returneras sista tecknet ur insträngen 
IF Typ=4 THEN RETURN RIGHTn(Inn,LEN(Inn)) 

j 

! Om Typ<0 eller Typ>4 så returneras hela insträngen 
RETURN Inn 
FNEND 
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BILAGA 4 I/O portar 


Reserverade I/O-portadresser på ABC800 
IN-PORTAR XINSTB 

Adress Bin Enhet Funktion Strobe 

Hex Dec 76543210 (Pin-nr) (4680-Benämn.) (26A) 


00 

0 

OOOxxOOO 

BUS (17A) 

(INP 0) 

JA 

01 

1 

0 0 0 x x 0 0 1 

BUS (16A) 

{INP 1) 

JA 

02 

2 

OOOxxOlO 

BUS (25A) 

(INP 2) 

JA 

03 

3 

0 0 0 x x 0 1 1 

- 

- 

JA 

04 

4 

OOOxxlOO 

- 

- 

JA 

05 

5 

0 0 0 x x 1 0 1 


"PLING" 

JA 

06 

6 

0 0 0 x x 1 1 0 

- 

- 

JA 

07 

7 

0 0 0 x x 1 1 1 

BUS (15A) 

I/O-RESET (RST) 

JA 

08- 

-IF 

8-31 Dubbleringar 

av ovanstående 

funktioner 

JA 

20 

32 

OOlOxxOO 

DART 

Tang.bord data 

NEJ 

22 

34 

0 0 1 0 x x 1 0 

DART 

Tang.bord kontr. 

NEJ 

21 

33 

0 0 1 0 x x 0 1 

DART (CH A) 

Printer data 

NEJ 

23 

35 

0 0 1 0 x x 1 1 

DART (CH A) 

Printer kontr. 

NEJ 

24- 

■2F 

36-47 Dubbleringar 

av ovanstående funktioner 

NEJ 

30 

48 

0 0 1 1 0 x x 0 

_ 


NEJ 

31 

49 

0 0 1 1 0 x x 1 

CRTC 80-tkn 

Read Register 

NEJ 

32- 

■37 

50-55 Dubbleringar 

av ovanstående funktioner 

NEJ 

38- 

•3F 

56-63 


Ej använda 

NEJ 

40 

64 

OlOxxxOO 

SI02 CH B 

V24 data 

NEJ 

41 

65 

OlOxxxOl 

SI02 CH B 

V24 kontroll 

NEJ 

42 

66 

OlOxxxlO 

SI02 CAS 

Kassett data 

NEJ 

43 

67 

OlOxxxll 

SI02 CAS 

Kassett kontroll 

NEJ 

44- 

4F 

68-95 Dubbleringar 

av ovanstående 

t funktuioner 

NEJ 

50 

96 

0 1 1 x x x 0 0 

CTC 

Kanal 0 

NEJ 

51 

97 

0 1 1 x x x 0 1 

CTC 

Kanal 1 

NEJ 

52 

98 

0 1 1 x x x 1 0 

CTC 

Kanal 2 

NEJ 

53 

99 

0 1 1 x x x 1 1 

CTC 

Kanal 3 

NEJ 

54- 

5F 

100-127 Dubbleringar av ovanstående funktioner 

NEJ 

80- 

FF 

128-255 Lediga, genererar strobe 


JA 





BILAGA 4 Forts 


Reserverade I/O-portadresser på ABC800 
UT-PORTAR 


Adress Bin Enhet 

Hex Dec 76543210 (Pin-nr) 


XOUTSTB 

Funktion Strobe 

(4680-Benämn.) (27A) 


00 

0 

OOOxxOOO 

BUS (22A) 

(OUT 0) Out data 

JA 

01 

1 

OOOxxOOl 

BUS (23A) 

(OUT 1) Card sel 

. JA 

02 

2 

OOOxxOlO 

BUS (21A) 

(OUT 2) 

JA 

03 

3 

0 0 0 x x 0 1 1 

BUS (20A) 

(OUT 3) 

JA 

04 

4 

OOOxxlOO 

BUS (19A) 

(OUT 4) 

JA 

05 

5 

OOOxxlOl 

BUS (18A) 

(OUT 5) 

JA 

06 

6 

0 0 0 x x 1 1 0 

HR/RAM-kort HRS/RAM-kontr 

JA 

07 

7 

0 0 0 x x 1 1 1 

HR-minne 

HRC=FGCTL kontr. 

JA 

08- 

-IF 

8-31 Dubbleringar 

av ovanstående 

funktioner 

JA 

20 

32 

OOlOxxOO 

DART 

(Tang.bord data) 

NEJ 

22 

34 

0 0 1 0 x x 1 0 

DART 

Tang.bord kontr. 

NEJ 

21 

33 

0 0 1 0 x x 0 1 

DART (CH A) 

Printer data 

NEJ 

23 

35 

0 0 1 0 x x 1 1 

DART (CH A) 

Printer kontr. 

NEJ 

24- 

■2F 

36-47 Dubbleringar 

av ovanstående funktioner 

NEJ 

30 

48 

0 0 1 1 0 0 0 0 

(RAM-kort 

RAM-kontr) 

NEJ 

31 

49 

0 0 1 1 0 0 0 1 

(RAM-kort 

RAM-kontr) 

NEJ 

32 

50 

0 0 1 1 0 0 1 0 

(RAM-kort 

RAM-kontr) 

NEJ 

33- 

37 

51-55 Används ej 



NEJ 

38 

56 

0 0 1 1 1 x x 0 

CRTC 80-tkn 

Skriv adr reg 

NEJ 

39 

57 

0 0 1 1 1 x x 1 

CRTC 80-tkn 

Skriv reg 

NEJ 

40 

64 

OlOxxxOO 

SI02 CH B 

V24 data 

NEJ 

41 

65 

OlOxxxOl 

SI02 CH B 

V24 kontroll 

NEJ 

42 

66 

OlOxxxlO 

SI02 CAS 

Kassett data 

NEJ 

43 

67 

0 1 0 x x x 1 1 

SI02 CAS 

Kassett kontroll 

NEJ 

44- 

4F 

68-95 Dubbleringar 

av ovanstående 

t funktioner 

NEJ 

50 

96 

0 1 1 x x x 0 0 

CTC 

Kanal 0 

NEJ 

51 

97 

0 1 1 x x x 0 1 

CTC 

Kanal 1 

NEJ 

52 

98 

0 1 1 x x x 1 0 

CTC 

Kanal 2 

NEJ 

53 

99 

0 1 1 X X x 1 1 

CTC 

Kanal 3 

NEJ 

54- 

5F 

100-127 Dubbleringar av ovanstående funktioner 

NEJ 

80-1 

ff : 

128-255 Lediga, genererar strobe 


JA 
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BILAGA 5 Anslutningsdon 




signalkabeln till 
bildskärmen 


asynkron data¬ 
kommunikation 


synkron eller 
asynkron data¬ 
kommunikation 


RESET-knapp 


Signaler till/från DISPLAY POWER-anslutningen 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 


Matningsspänning (+17 —+24 V) 
Kraftjord 


Video 

Signaljord 
SYNK (H + V) 
B-signal (blå) 
G-signal (grön) 
R-signal (röd) 


LF 


DISPLAY 

POWER 


DATAEIUSS < 


.. 

9' 


• 8 

•15 


(foo o o oooo)) 

l\ OOOOOOO Jj 


-12 V 
0 V 

0 V 

mr 

'D7 

D6 

D5 

D4 

03 

02 

01 

00 

E5T 


{: 


UTPORTAR < 


Signaler till/från CH.A och CH.B 


3 
2 
0 
1 

NMl 
TTCF3 
XINPSTB 
XOUTPSTB 

ROY 
+ 5 V 
+ 12 V 


1 

DTR 

(Data Terminal Ready) 

2 

TxD 

(Transmitt Data) 

3 

RxD 

(Receive Data) 

4 

RTS 

(Request to Send) 

5 

CTS 

(Clear to Send) 

6 

DSR 

(+12 V) 

7 

GND 

(Jord) 

8 

9 

DCD 
-12 V 

(Data Carrier Detect) 


CH.A 
1.5 

6* »♦*9 


CH.B 
.5 

• *9 


(fo o o o 6j) (fo o o o o )) 

W o o s o // Moooo // 



Signaler till/från TAPE-anslutningen 

1 Signal ut 

2 Jord 

3 Signal in 

4 Motorstyrning 

5 Motorstyrning 


3. »i 

5*. *4 

2 TAPE 
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BILAGA 6 Minnesmap 


Minneskarta ABC M/C HR utan flexskiveenhet 
ansluten 


DECIMAL 

ADRESS 

65280 

65024 

64768 


32768 

31744 

30720 

28672 

24576 


16384 


ENKLA VARIABLER 

CASBUF2 _ 

CASBUF 1 


32 KB RAM 
ARBETSMINNE 


2 KB RAM 2 KB ROM 
BILDMINNE 1 GRAFIK 2 


2 KB ROM 

PRINTER/TERMINAL 


4 KB ROM 
DOS 


24 KB ROM 
BASIC 


i- 

I 

j 16 KB RAM 
I GRAFIK 2 


HEXADECIMAL 

ADRESS 

FFOOH 

FEOOH 

FDOOH 


8000H 

7C00H 

7800H 

7000H 

6000H 


4000H 


OKTAL 

ADRESS 

377:000 

376:000 

375:000 


200:000 

174:000 

170:000 

160:000 

140:000 

100:000 


1. ABC 800 C använder endast 1 KB bildminne (31744—32768). 

2. Bildminnet (2 KB) på VU-kortet ligger parallellt med systemprogrammet 
för grafik (2 KB) på PU-kortet. Likaså ligger bildminnet för grafik (16 KB) 
parallellt med systemprogrammet för BASIC. De olika minnesareorna in¬ 
kräktar dock inte på varandra utan ABC 800 går över i en specialmod då 
grafikminnet adresseras. 

Om minnesutrymme för maskinspråksrutiner ska reserveras, ändras föl¬ 
jande adresser: 

• Pekare till lägsta minnesadressför BASIC-program (BOTTOM): 65292 

• Pekare till högsta minnesadress för BASIC-program (TOP): 65294 
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BILAGA 6 Forts 


Minneskarta ABC 800 med flexskiveenhet ansluten 


DECIMAL 

ADRESS 

65280 


ENKLA VARIABLER 


SYSTEMVARIABLER 


HEXADECIMAL OKTAL 
ADRESS ADRESS 

FFOOH 377:000 


64768 

64512 

64256 

64000 

63744 

63488 

63232 

62976 

62720 


CASBUF2 

DOSBUF 7 

CASBUF1 

DOSBUF 6 


DOSBUF5 


_ DOSBUF 4 

_ DOSBUF 3 

_ DOSBUF 2 

_ DOSBUF 1 

_ DOSBUF 0 

STACK 
32 KB RAM 


FDOOH 

FCOOH 

FBOOH 

FAOOH 

F900H 

F800H 

F700H 

F600H 

F500H 


375:000 

374:000 

373:000 

372:000 

371:000 

370:000 

367:000 

366:000 

365:000 


I 

I 

I 


ARBETSMINNE , 

I 

Övrigt minnesutrymme I 

identiskt med föregående 
minneskarta 




BILAGA 7 Felmeddelanden 


Fel 19-68 
Fel 130-176 
Fel 180-191 
Fel 200-211 
Fel 220-234 


I/O-fel 

Fel vid programkörning 
Logiska fel 
Allmänna fel 
Formella BASIC-fel 


Fel 

(Error) 

Meddelande 

Kommentar 

19 

Kan ej öppna fler filer 

Sju filer är öppnade 

20 

För lång rad (> 160 tkn) 

En rad får innehålla 
max 160 tecken 

21 

Hittar ej filen 

Filen finns inte eller har 
sökts under fel namn 

32 

Filen ej öppnad 


34 

Slut på filen 

Försökt läsa efter filslut 

35 

Checksummafel vid läsning 

Skivan eller kassett¬ 
bandet är skadad 

36 

Checksummafel vid skrivning 

Skivan är skadad 

37 

Felaktigt sektorformat 

Fel på skiva eller kassett 

38 

Sektornummer utanför filen 

Försök att läsa längre 
än filen medger 

39 

Filen skrivskyddad 


40 

Filen raderskyddad 


41 

Skivan full 

Filen får ej plats på 
skivan 

42 

Enheten ej klar 

Enheten ej klar, t ex 
ej ansluten. 

43 

Skivan skrivskyddad 


44 

Logisk fil ej öppnad 


45 

Fel logiskt filnummer 


46 

Fel enhetsnummer 


47 

Fel trapnummer 


48 

Fel i biblioteket 


49 

Felaktigt fysiskt filnummer 


51 

Enheten upptagen 


52 

Ej till denna enhet 


53 

Funktionstangent 

Funktionstangent har 
tryckts ned i INPUT- 
eller INPUT LINE-sats 

54 

IEC både sändare och mottagare 

lEC-option 

55 

lEC-mottagare ej aktiv 

lEC-option 

56 

1 EC-sändare ej aktiv 

lEC-option 

57 

Tecken från tangentbord ej i tid 

.. 

58 

Ogiltigt tecken inläst 


64 

Felaktigt "NAME” 

Nya filnamnet existerar 
redan 

68 

Felaktig tidspecifikation 
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BILAGA 7 Forts. 


Fel 

(Error) 

Meddelande 

Kommentar 

130 

För stort flyttal 


131 

Index utanför tillåtet område 

Försök att använda in¬ 
dex större än motsvar¬ 
ande DIM 

132 

För stort heltal 


133 

Fel i ASCII-aritmetiskt uttryck 


134 

Index utanför strängen 

Index för stort eller 
negativt 

135 

Negativ "SPACE H", "STRING S " 
eller ''TAB"<1 


136 

För lång sträng 

För liten dimension på 
den mottagande sträng¬ 
en 

137 

Ej tillåtet öka "DIM" 

Ett fält får inte ökas ut¬ 
över sin ursprungliga 
längd 

138 

Fel värde i "ON"-uttryck 


139 

"RETURN" utan "GOSUB" 

En RETURN-sats på¬ 
träffad utan att en före¬ 
gående GOSUB-sats har 
blivit utförd 

140 

Felaktig "RETURN"-variabel 


141 

Data slut 

Datalistan har blivit 
tömd och en READ-sats 
efterfrågade fler data 

142 

Felaktigt argument i funktion 


143 

Felaktig "SYS"-funktion 


144 

Ej tillåten rad 


145 

"FNEND" utan föregående "RETURN" 


146 

"PRINT USING" fel 

Felaktigt format i 

PRINT USlNG-sats 

147 

Felaktiga data 


148 

För lite indata 

För få data inmatade 
vid INPUT 

149 

"R ESTO RE" ej på en "DATA"-rad 


150 

För mycket indata 

För många data in¬ 
matade vid INPUT 

151 

"RESUME" utan fel 
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BILAGA 7 Forts 


Fel 

(Error) 

Meddelande 

Kommentar 

180 

Hittar ej detta radnummer 

Referens till ett rad¬ 
nummer som inte finns 
i programmet 

181 

Felaktigt inhopp i funktion 


182 

"NEXT" eller "WEND" saknas 


183 

"FOR" eller "WHI LE" saknas 


184 

Fel variabel efter "NEXT" 


185 

Blandade "FOR"-loopar med samma 
variabel 


186 

"FOR"-loop med lokal variabel ej tillåtet 

Gäller i flerradiga funk¬ 
tioner 

187 

Funktion ej definierad 

Anrop till ej definierad 
funktion 

188 

Flera funktioner med samma namn 


189 

Felaktig funktion 

Ej tillåtet att blanda 
flera "DEF" 

190 

Fel antal index 

Antalet index överen- 
stämmer ej med DIM 

191 

Ej tilldelningsbar i funktion 

Funktionens argument 
är ej tilldelningsbar i 



funktion 

200 

Enheten ej ansluten 


201 

Minnet fullt 

Datorns primärminne 
har ej plats för program 
och data 

202 

"LIST"-skyddat program 


203 

Fel programformat 

Programmet är sparat 
under en ickekompa¬ 
tibel BASIC-version 

204 

"MERGE" går ej på "BAC"-fil 


205 

"COMMON" fel 


206 

Använd kommandot "RUN" 


207 

Kan ej fortsätta 

Gäller GOTO radnr och 
CON 

208 

Otillåtet som kommando 

Instruktionen kan ej an¬ 
vändas som kommando 

209 

Fel data till kommando 

Felaktigt argument till 
kommandot t ex 
LIST## 

210 

Felaktigt tal 

Talet innehåller tecken 
som inte är siffror 

211 

Precision får ej ändras 

Ej tillåtet ändra preci- 


sion efter tilldelning av 
variabler 
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BILAGA 7 Forts 


Fel 

(Error) 

Meddelande 

Kommentar 

220 

Förstår ej 

Formellt BASIC-fel 

221 

Otillåtet tecken efter satsen 

Formellt BASIC-fel. 

222 

223 

224 

225 

Måste vara först på en rad 

Fel antal eller typ av argument 

Otillåten blandning av tal och strängar 

Ej enkel variabel 

Datorn förväntade RE- 
TURN, kolon (:) eller 
utropstecken (!) 

Ej tillåtet ha index på 

226 

Felaktig sats efter "ON" 

variabel t ex i FOR-loop 
Formellt BASIC-fel 

227 

"," saknas 

Formellt BASIC-fel 

228 

" = " saknas 

Formellt BASIC-fel 

229 

") " saknas 

Formellt BASIC-fel 

230 

"AS Fl LE" saknas 

Förekommer i OPEN- 

231 

"AS" saknas 

och PREPARE-satser 

Fel i NAME . . . AS . . . 

232 

"TO" saknas 

Förekommer i FOR- 

233 

234 

Radnummer saknas 

Felaktig variabel 

loopar 



BILAGA 8 Färgval stabell 


B=blå, C=cyan, G=gul, GR=grön, M=magenta, R=röd, S=svart, V=vit 


Fä rgva Is¬ 


Färgnr 



Fä rgva Is¬ 

kommando 





kommando 

Grafik + 

0 

1 

2 

3 

Enbart 

text 





grafik 

0 

S 

S 

S 

S 

128 

1 

S 

V 

V 

V 

129 

2 

S 

R 

GR 

G 

130 

3 

S 

R 

GR 

B 

131 

4 

S 

R 

GR 

M 

132 

5 

S 

R 

GR 

C 

133 

6 

S 

R 

GR 

V 

134 

7 

S 

R 

G 

B 

135 

8 

S 

R 

G 

M 

136 

9 

S 

R 

G 

C 

137 

10 

s 

R 

G 

V 

138 

1 1 

s 

R 

B 

M 

139 

12 

s 

R 

B 

C 

140 

13 

s 

R 

B 

V 

141 

14 

s 

R 

M 

C 

142 

15 

s 

R 

M 

V 

143 

16 

s 

R 

C 

V 

144 

17 

s 

GR 

G 

B 

145 

18 

s 

GR 

G 

M 

146 

19 

s 

GR 

G 

C 

147 

20 

s 

GR 

G 

V 

148 

21 

s 

GR 

B 

M 

149 

22 

s 

GR 

B 

C 

150 

23 

s 

GR 

B 

V 

151 

24 

s 

GR 

M 

c 

152 

25 

s 

GR 

M 

V 

153 

26 

s 

GR 

C 

V 

154 

27 

s 

G 

B 

M 

155 

28 

s 

G 

B 

C 

156 

29 

s 

G 

B 

V 

157 

30 

s 

G 

M 

C 

158 

31 

s 

G 

M 

V 

159 
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BILAGA 8 Forts 


Färg va Is¬ 
kommando O 

Grafik + 
text 


32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 


S 

S 

S 

S 

S 

R 

R 

R 

R 

R 

R 

R 

R 

R 

R 

R 

R 

R 

R 

R 

R 

R 

R 

R 

R 

GR 

GR 

GR 

GR 

GR 

GR 

GR 

GR 

GR 

GR 

G 

G 

G 

G 

B 

S 

S 

S 

S 

S 

S 

S 

S 


Färgnr 

1 


Färgva Is¬ 
kommando 
Enbart 
grafik 


G 

C 

V 

160 

B 

M 

C 

161 

B 

M 

V 

162 

B 

C 

V 

163 

M 

C 

V 

164 

GR 

G 

B 

165 

GR 

G 

M 

166 

GR 

G 

C 

167 

GR 

G 

V 

168 

GR 

B 

M 

169 

GR 

B 

C 

170 

GR 

B 

V 

171 

GR 

M 

C 

172 

GR 

M 

V 

173 

GR 

C 

V 

174 

G 

B 

M 

175 

G 

B 

C 

176 

G 

B 

V 

177 

G 

M 

c 

178 

G 

M 

V 

179 

G 

C 

V 

180 

B 

M 

c 

181 

B 

M 

V 

182 

B 

C 

V 

183 

M 

C 

V 

184 

G 

B 

M 

185 

G 

B 

C 

186 

G 

B 

V 

187 

G 

M 

c 

188 

G 

M 

V 

189 

G 

C 

V 

190 

B 

M 

c 

191 

B 

M 

V 

192 

B 

C 

V 

193 

M 

C 

V 

194 

B 

M 

c 

195 

B 

M 

V 

196 

B 

C 

V 

197 

M 

C 

V 

198 

M 

C 

V 

199 

R 

s 

R 

200 

S 

R 

R 

201 

GR 

S 

GR 

202 

S 

GR 

GR 

203 

G 

S 

G 

204 

S 

G 

G 

205 

B 

S 

B 

206 

S 

B 

B 

207 
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BILAGA 8 Forts 


Färgvals- 
kommando 
Grafik + 

text 

0 

Färgnr 

1 

2 

3 

Färg va Is¬ 
kommando 

Enbart 

grafik 

80 

S 

M 

S 

M 

208 

81 

S 

S 

M 

M 

209 

82 

S 

C 

S 

C 

210 

83 

S 

S 

C 

C 

211 

84 

S 

V 

S 

V 

212 

85 

S 

S 

V 

V 

213 

86 

R 

GR 

R 

GR 

214 

87 

R 

R 

GR 

GR 

215 

88 

R 

G 

R 

G 

216 

89 

R 

R 

G 

G 

217 

90 

R 

B 

R 

B 

218 

91 

R 

R 

B 

B 

219 

92 

R 

M 

R 

M 

220 

93 

R 

R 

M 

M 

221 

94 

R 

C 

R 

C 

222 

95 

R 

R 

C 

C 

223 

96 

R 

V 

R 

V 

224 

97 

R 

R 

V 

V 

225 

98 

GR 

G 

GR 

G 

226 

99 

GR 

GR 

G 

G 

227 

100 

GR 

B 

GR 

B 

228 

101 

GR 

GR 

B 

B 

229 

102 

GR 

M 

GR 

M 

230 

103 

GR 

GR 

M 

M 

231 

104 

GR 

C 

GR 

C 

232 

105 

GR 

GR 

C 

C 

233 

106 

GR 

V 

GR 

V 

234 

107 

GR 

GR 

V 

V 

235 

108 

G 

B 

G 

B 

236 

109 

G 

G 

B 

B 

237 

110 

G 

M 

G 

M 

238 

1 1 1 

G 

G 

M 

M 

239 

112 

G 

C 

G 

C 

240 

113 

G 

G 

C 

C 

241 

114 

G 

V 

G 

V 

242 

115 

G 

G 

V 

V 

243 

116 

B 

M 

B 

M 

244 

117 

B 

B 

M 

M 

245 

1 18 

B 

C 

B 

C 

246 

119 

B 

B 

C 

C 

247 

120 

B 

V 

B 

V 

248 

121 

B 

B 

V 

V 

249 

122 

M 

C 

M 

c 

250 

123 

M 

M 

C 

c 

251 

124 

M 

V 

M 

V 

252 

125 

M 

M 

V 

V 

253 

126 

C 

V 

C 

V 

254 

127 

C 

C 

V 

V 

255 
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BILAGA 9 ASCII-tabell och koder från tangentbordet 


Tangentkoder i tecken-/grafrnod (ASCII - tabell) 


A T G A T G 

32 Blank D 56 8 0 

33 ! C 57 9 0 

34 " □ 58 0 

35 # H 59 H 

36 n B 60 <0 

37 % B 61 =0 

38 & 0 62 >0 

39 B 63 ?0 

40 ( 0 64 É É 

41 ) H 65 A A 

42 * 0 66 BB 

43 + H 67 C C 

44 , 0 68 D D 

45 - B 69 E E 

46 3 70 F F 

+7 / H 71 GG 

+8 0 C 72 H H 

V9 1 C 73 II 

50 2 n 74 J J 

51 3 D 75 K K 

52 4 E 76 L L 

53 5 E 77 MM 

54 6 B 78 NN 

55 7 B 79 0 0 


P P 
Q Q 
R R 
S S 
T T 
U U 

V V 

w w 

X X 

Y Y 

z z 
Ä Ä 
ö ö 

o a 

A A 
U U 

é □ 

a H 

b a 

c H 

d H 

e B 

f a 


104 h a 

105 i a 

106 j Di 


107 k a 

108 t ä 

109 m S 

no n a 

111 o a 

112 p □ 

113 q £ 

114 r J 

115 s □ 

116 f B 


115 s □ 

116 t B 

117 u B 


119 w E 

120 x 0 


125 å B 

126 u 9 


ASCII-koder (A) tolkade i teckenmod (T) och grafikmod (G). 
Den grafiska moden kan endast åstadkommas med ABC 800 C. 




BILAGA 9 Forts 


Koder från tangentbordet 


ASCII-kod 

Ctrl 

Shift Tangent 

ASCI l-namn 

Funktion 

0 

X 

✓ 

E 

NUL 

Tidsutfyllnadstecken 

1 

X 

A 

SOH 

— 

2 

X 

B 

STX 

— 

3 

X 

C 

ETX 

Stoppar exekvering 

4 

X 

D 

EOT 

— 

5 

X 

E 

ENQ 

— 

6 

X 

F 

ACK 

— 

7 

X 

G 

BEL 

"Pip" i högtalaren 

8 

X 

H 

BS 

*) tangenten 

9 

X 

1 

HT 

*) tangenten 

10 

X 

J 

LF 

Radframmatning 

11 

X 

K 

VT 

— 

12 

X 

L 

FF 

*) Raderar skärmen 

13 

X 

M 

CR 

*) "RETURN" tangenten 

14 

X 

N 

SO 

— 

15 

X 

0 

SI 

— 

16 

X 

P 

DLE 

— 

17 

X 

Q 

DC1 

— 

18 

X 

R 

DC2 

— 

19 

X 

S 

DC3 

Stegar en programinstruktion 

20 

X 

T 

DC4 

— 

21 

X 

U 

NAK 

— 

22 

X 

V 

SYN 

— 

23 

X 

w 

ETB 

— 

24 

X 

X 

CAN 

*) Tar bort skriven rad 

25 

X 

Y 

EM 

— 

26 

X 

z 

SUB 

— 

27 

X 

Ä 

ESC 

— 

28 

X 

ö 

FS 

— 

29 

X 

Ä 

GS 

— 

30 

X 

ii 

RS 

— 

31 

X 

X 0 

US 

- 

127 

X 

< 

DEL 

— 


*) Dessa tecken påverkar skärmen direkt. 
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BILAGA 9 Forts 


Decimala koder från funktionstangentema 




SHIFT 

CTRL 

SHIFT + CTRL 

PF1 

192 

208 

224 

240 

PF2 

193 

209 

225 

241 

PF3 

194 

210 

226 

242 

PF4 

195 

211 

227 

243 

PF5 

196 

212 

228 

244 

PF6 

197 

213 

229 

245 

PF7 

198 

214 

230 

246 



BILAGA 10 Videografikkarta 
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plats för grafikstyrtecken 
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